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Combat Simulation 

Argus Press Software have got 
themselves in dangerous waters with 
their submarine simulation. The Hum 
for Red October. The storyline has 
been taken from Tom Cla ray's best 
selling novel and you play the part of a 
defector in command of a submarine 
that is being hunted by the entire 
Russian Navy. Your aim is to make a 
rendezvous with the American Navy- 
but the Russians have other plans for 
you. The gameplay is detailed and 
challenging, providing plenty of scope 
for strategy and simulation fans. 

The Hum for Red October will be 
available soon on the Commodore 64. 
(Price to be announced.) 

Pin tactical warfare in a new 
dimension with Rainbird's re-released 
Tracker. The battle is fought around a 
military training simulator known as 
the Centrepoint on the planet liruon. 
The planet's attendant Cycloid robots 
now control the complex and it's all 
down to you to destroy (he 
Centrepoint computer. 




You'll need your wits about you to 
fight the frenetic battle which 
combines fast strategic manoeuvring 
with high speed solid graphic 3-D 
battle sequences. It's al! down to you 
to wipe out the destructive hordes of 



USSR 



USSR 



USSR 



The limit for Red October 

renegade Cycloids with simultaneous 
control of up to eight shimmer craft. 

Tracker is available on the 
Commodore 64. priced at £14.95 (Ca) 
and 117.95 (Dsk). 



Touch/ ine: 

Argus Press Software: Victory House. 
Leicester Place. London WC2H 7NB. 
Tel: 01-439 0666. 

Rainbird Software: Wellington House. 
Upper Martins Lane. London WC2H 
9DL Tel: 01-240 $838. 



Win a Weekend Break 

Softsel. the distributors of 
microcomputer ha rdware and 
software products have organised a 
promotion which offers Softsel dealers 
who buy ten or more Migent products 
a chance to enter a draw for a free 
weekend for two in the UK. 

Peter Scatchard, Marketing 
Manager for Softsel comments: 
'Softsel will be offering a free unit for 
every ten Migent products purchased, 
in addition to the free draw for a 
weekend break." 

Migent now produce a graphics 
package in the form of Page Ability, 
which is aimed at the desktop 
publishing market and priced al £ 199. 
The Page Ability is fully integrated 
with the rest of Migent's range which 
consists of Ability (£99). Ability Plus 
(1*199) and the Account-Ability - the 
complete small business and personal 
accountant (£99). 

Touehlines: 

Softsel: Softsel House. Syon (late Way. 
Great West Road. Brentford. Middlesex 
TWH WD. Tel: 01-568 8866. 



Bizzy-Body 

Bizznet is the new service, available on 
Prestel which is aimed at the small 
businessman and includes everything 
from on-line tax and legal advice lo 
information on pension schemes, 
money and stocks and shares. Users 
can send experts questions 
electronically and then read the replies 
on their terminal at home or in the 
office. An on-line accountancy service, 
run by M.A.S. is also on offer. Other 
features of Bizznet include insurance, 
investments. DHSS. running a small 
business, start-up schemes and 
property. 

Micronet's Commercial Director 
Simon D'Arcy commented. "Bizznet 
is aimed at those people who already 
have a PC. but are looking to get more 
value out of it. It brings the advantages 
of instant information and interaction 
to the businessman." 



TouchUne: 

Micronet: Durrani House. 8 Herbal 
Hill. London ECIR 5 HI. Tel: 01-278 
3/43. 



The Choice is Yours 

Let's hope Mary Whitehouse doesn't 
read the computer press, as I'm sure 
this recent release from Virgin would 
cause her to throw up her arms in 
disgust ! How to be a Complete Bastard 
is exactly that - based on Adrian 
Edmondson's book, the game allows 
you to go to a party, and basically 
cause havoc. 

You go by the name of Ade and 
aim of the game is to score as many- 
bastard points as possible and light up 
every letter in the phrase 'complete 
bastard* by particularly deviant 
behaviour. The game features 
'bastavision' which allows vou to see 
what's going on in all corners of the 
house, so as not to lose a chance of 
being horrible slip away. 

II this sort of game turns you on. 
it's available on the Commodore 
64/128. priced at £9.95 (Ca). 

Touehline: 

Virgin: 2-4 Vernon Yard. Portobelio 
Road. London WII 2DX. Tel: 01-727 
8070. 
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On the Hardware Front 

The Competition Pro Extra is a new 
joystick now available from Dynamics 
Marketing Ltd. The joystick, priced at 
1 16.95. features an auto-fire option 
with slow motion movement for better 
control in sticky situations. 

Dynamics' Kevin Parsons. 
General Manager comments. *We 
know that the new Pro Extra with 
rapid-fire will fill a need in the market 
but the Competition Pro 500 joystick 
continues to be our main product 
bought by discerning users throughout 
the world.' 

In a bid to make the computerised 
office a safer place, Accodata are 
launching a new range of computer 
equipment and accessories. The 
products include the PCMate priced at 
11119. which comprises a range of 
personal computer and printer 
furniture: Keyboard Slideaway priced 
at £39. which enables the PC keyboard 
to slide under the monitor when not in 
use. which saves deskspace and 
protects the keyboard from dust and 
spills; the Printer Muffler which is a 
range of acoustic hoods for 80 and 132 
column printers, which can reduce 
noise by up to 80% (£69 - 80 printer. 
£75 - 132 column printer). Also 
Diskette Fire Safe, priced at £525. 
which has a capacity of 105 5'/," or V/ 2 
disks and Data Cartridge Boxes, 
priced at £17.50 and £19.50. which 
have been designed for convenient 
filing and retrieval of up to ten 
standard or mini data cartridges. 

Touehlines: 

Dynamics Marketing Ltd: Coin House. 

New Coin Street. Rovton. Oldham 012 

6JZ. Tel: 061-626 7222. 

Accodata: Hereward Drive. Halesowen. 

West Midlands 1162 8AN Tel: 021-550 

4S48. 




Arcade Action 

Can you free your father from the 
urban jail in Mean City? This is the 
question that a new release from 
Quicksilva asks in Mean City. You 
play the part of Sante. son of mutant 
rebel leader Hante. and it is your task 
to free your father from the jail in the 
city of Concurb 2 G-Gow. It is also a 
battle against your cousin - Calte - 
who eventually wants to lead 
Concurb. and the only way he can do 
this is by getting to your father before 



you and killing him. To free your 
father you must collect four parts of 
the key. and all the time you have to be 
on the look out for youropposers who 
appear in the form of city citizens, 
police, enforcer druids and the anti- 
mutant league! 

Available on the Commodore 64. 
priced at £9.95 (Ca(and£l4.95(Disk). 

In Tcrrames. a further Quicksilva 
release, you have to hunt for the 
famous brainy professor - Dr 
Eyestrain. An asteroid is about to 
collide with Earth and the only person 
that can help is yes - you've guessed it 



- Professor Eyestrain! But first, you've 
got to find him. Packed with humour 
and action it's up to you to find the 
Prof, persuade him to help and then 
collect the equipment he needs to put 
his defence plan into operation. 

Terramex is available on the 
Commodore 64/128. (Price to be 
announced.) 

Intrigue by Mirrorsoft enables you 
to become a master investigator by 
solving the case of a missing person. It 
is very important that you find this 
missing person as it happens to be your 
brother - Joe. You find out that Joe. a 
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Two oat of three are Madballs - but w hich ones?! 

private investigator, has been working 
on a case that involves a dangerous 
virus that may be released into the air 
of our nation's capital. It's all down to 
you to deactivate the device that will 
unleash the crippling virus, and name 
the villain behind the crime. Successful 
hunting! 

Intrigue is available on the 
Commodore 64. (Price to be 
announced.) 

Soon to be released from Ocean is 
Madballs, featuring those weird and 
wacky toy characters. This action 
packed game features Dust Brain (a 
dried-up mummy head which is not 
too tightly wrapped) who is a member 
of the notorious Madballs political 
party who are the current rulers of the 
planet Orb. However. Dust Brain is 
convinced that his politics are right 
and sets out on a bureaucrat-bashing 
exercise to eliminate the oppositions. 
You play the role of Dust Brain and 
it's your aim to convince the rest of the 
Madballs to favour your policies. 

Available on the Commodore 64. 
priced at £8.95. 

Fun and games are in store with 
Jinxter soon to be available from 
Rainbird. The game is set in the land of 
Aquiiania - a land which has been 
protected by a magical charm bracelet 
- but is now under the control of the 
Green Witches. It's up to you to find 
and link together the seven charms of 
the bracelet, and only then will 
harmony be restored to Aquitania. To 
keep up with the Rainbird tradition, 
the game is packed full of puzzles, 
graphics and extensive descriptions. 



Available on the Commodore 
64/128. priced at £19.99 (Disk). 

CRL's recent release. / Alien - 
Hunted by Man puts you in immediate 
danger of becoming a guinea pig for 
new laboratory specimens to cultivate 
a new food source. This is due to a 
nuclear war wiping out Earth's entire 
animal population and planets arc 
now being combed and so their 
experiments can begin. 

Your only means of escape is your 
pod. which will lake you to another 
planet for help. But of course there arc 
many obstacles en route to your pod. 
which include droids, ice dragons and 
mutants. 

Available on the Commodore 64. 
priced at £9.95 (Ca) and £ 14.95 (Disk). 

Ninja Hamster is now available on 
the Commodore and promises not to 
be your run-of-the-mill karate game. 
On return from foreign conquests, 
Ninja Hamster returns home to find his 
village in the evil grip of his arch 
enemies Sinster Rat and The Lizard of 
Death. Ninja Hamster launches his 
quest to rid his village of evil in a 
frenzy of (lying fists, gnashing teeth 
and kicking feet. 

Available on the Commodore 64. 
priced at £9.95 (Ca)and£l4.95(Disk). 

Now available on the Commodore 
is the popular coin-up arcade game. 
Super Sprint, Available from Electric 
Dreams, the game offers intense head- 
to-head racing action from a bird's eye 
view point. Lots of fun to be had with 
eight different tracks to negotiate, 
which includes jump ramps, opening 
and closing gates, hidden short cuts 



and under passes and banked corners. 

Super Sprint is available on the 
Commodore 64/128. priced at £9.99 
(Ca) and £14.99 (Disk). 

Bangkok Knights from System 3 
brings all the thrills and spills of 
Thailand's martial art. Using Muay 
Thai (Thai boxing) you must fight 
your way from the cliff ledge above 
your village, through the jungle and 
onto the streets of Bangkok. Only 
when you have got this far. and beaten 
street opponents can you enter the 
Lumpini stadium where you will 
encounter the greatest exponents of 
the sport - the Bangkok Knights. 

Available on the Commodore 
64/128. priced at £9.99 (Ca) and 
£14.99 (Disk). 
Touehlines 

Quicksilva/ Argus Press Software: 

Victory House. Leicester Place WC2H 

7NB. Tel: 01-439 0666. 

Mirrorsoft: Athene House. 66-73 Shoe 

Lane. London EC4P 4AB. Teh 01-377 

4645. 

Ocean Software Ltd: 6 Central Street. 
Manchester M2 5NS. Tel: 06/ -832 
6633. 

Rainbird: First Floor. 74 New Oxford 
Street. London WCIA IPS. Tel: 01-240 
8838. 

CRL: CRL House. 9 Kings Yard. 
Carpenter's Road. London LIS 2HD. 
Tel: 01-533 2918. 

Electric Dreams/ Activlsion: Ac ti vision 
House. 23 Pond Street. Hampstead. 
London NW3 2PN. Tel: 01-431 1101. 
System 3 Software/ Aetivision: 23 Pond 
Street. Hampstead. London NW3 2PN. 
Tel: 01-431 1 101. 

A Matter of Scruples 

Based on the popular (or not so 
popular) board game. Leisure Genius 
(Virgin) are due to release the 
computer version. In addition to 230 
questions of moral dilemmas, the 
computer edition has an exciting array 
of computer people with simulated 
intelligence to play with you (that's if 
you can't round up the real thing). 
There are 64 computer personalities 
which are pre-decided and human 
players must select their looks from a 
gallery of faces, and then adjust their 
personalities by means of character 
attributes. 

Available on the Commodore 
64/128. priced at £12.95 (Ca) £14.95 
(Disk). 
Touchline: 

Virgin: 2-4 Vernon Yard. Portobello 
Road. London Wll 2DX. Tel: 01-727 
8070. 
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computers l.td. 



27/29 High Street 
Leicester LE1 4FP 
Tel: (0533) 
517479/21874 
THE MIDLAND'S LARGEST COMPUTER STORE 




CBM 64/128 and PLUS 4 COMPANIES PACK 

Sales/Putchase/Nominal Ledgers with Invoicing 

and Slock Control. Disc E24.95 

"Very easy ft> use — probably the friendliest 
package I have come across. " 
- Commodore User 

VIZA 

VtzastarXL864 

VizastarXLS 128 

Vizawrite Classic 128 

PRECISION 

Superscript 64 

Superbase 64Z+4 

Superscript 64 

& Superbase 64 

Superscript 128 

Superbase 128 

Superscnpt 128 

& Superbase 128 

Superbase, The Book 

GEOS 

CBM 64/128 Operaling System 
Including: Desktop, Geowrite, Geopaint, 
and Desk Accessories, Disc 

GEOFILE 

Geos Based Filing System, Disc £37.50 

COMMODORE 128 COMPENDIUM PACK 

Commodore 128 Computer, C2N Data Recorder. 
Music Maker Keyboard, Spirit ot the Stones, 
Jack Attack and International Soccer 
Software £269.95 



X39^5- £79.95 
£129=95- £99.95 
£99*5- £79.95 

£6095- £49.95 
£90-95- £39.95 

£169,96- £79.95 
£89^5- £74.95 
£99*95- E59.95 

£389.90- £119.95 
£11.95 



£49.95 



AMIGA RANGE 



AMIGA A500/CBM MONITOR OFFER 
AMIGA A500 wilh COMMODORE 1081 
HIGH RES COLOUR MONITOR. 

Mouse. Workbench. Basic and 



DPAINT Software 



£749.95 



AMIGA A500/8833 MONITOR OFFER 
AMIGA A500 with PHILIPS 8833 HIGH RES 
COLOUR MONITOR wilh STEREO SOUND 
OUTPUT. Mouse, Workbench. Basic 
and DPAINT Software £699.95 



AMIGA A500 PACK 1 

with Mouse, Workbench, Basic. DPAINT. 

TV Modulator, 40 Disc Storage Box, 

Dust Cover and 10 Games/Utility 

Discs £489.95 



COMMODORE 1081 




HIGH RES MONITOR 


£329.95 



PHILIPS COLOUR TV TUNER 

For use with any Composite Monitor £78.95 

AMIGA 1Mb 2nd Drive £129.95 

AMIGA A2000 SYSTEM 

AMIGA A2000 COMPUTER with COMMODORE 
1081 HIGH RES COLOUR MONITOR 

Including 1 year on-site maintenance . £1259.00 

PHILIPS 8833 COLOUR MONITOR 

High Res with Stereo Sound Oulput £279.95 

AMIGA A500 

UpgradetolMb £113.00 

DIG IV IEW 2 Video Digitiser £169.95 

"Hardware product of the year. " 
— Amiga developers conference. 



AMIGA A500 PACK 2 

wilh Mouse, Workbench. Baste. DPAINT, 
Sports Bag with Baseball. Golf and Football, 
40 Disc Storage Box. Dust Cover and 
10 Games/Utility Discs £489.95 



OLIVETTI DM105 

COLOUR DOT MATRIX PRINTER 

Unbeatable on prtce/performance. the Olivetti 
DM105 offers the following features: 

* Will faithfully reproduce any AMIGA screen 

* 120 cps Drafl, 25 cps Near Letter Quality 
Modes 

* Prints NLQ, Draft and Graphics in 
Full Colour 

* Up to 240 Dots Per Inch Graphic Resolution 

* Full AMIGA Compatibility 
♦Supported by 

All Software £413*85- E 199.95 

Optional Tractor Feed Unit E34.50 



1541CDISC DRIVE £169.95 

1571 DISC DRIVE £229.95 

EXCELERATOR DISC DRIVE £159.95 

The above include GEOS, 10 Discs, plus eilher: 
Software Pack A 

6 Infacom Disc Adventure Games plus 5 Disc Arcade Games; 
Software Pack B 

Quick Brown Fox Wordprocessor, Easyfile Database, and 
Future Finance Planning Package 



CITIZEN 120D CBM PRINTER 

High Quality Dot Matrix Printer 

* Near Letter Quality Mode * 120 cps Draft Print Mode 

* Friction and Tractor Feed * Needs no interface 

* Full Two-Year Warranty * 100% Commodore compatible 



£169.95 



WORLD EXCLUSIVE! 

UNBEATABLE COMMODORE 64C OFFERS 

CBM64C. C2N, Neos Mouse, Joystick. Designers Pencil. 10 Blank 
Tapes, Monopoly, Renaissance, Scrabble. Grand Master Chess, 
Ctuedo, Adnan Mole, Toy Bazaar, plus 6 Books. 
ALSO INCLUDING Software pack 1, 2 or 3 below , E199.95 

PACK 1 - 20 Arcade Games 
PACK 2-10 Pre-School Educational Tapes 
PACK 3-28 Secondary Educational Titles 
COMMODORE 64C SPORTS PACK OFFER 

CBM64C. C2N, On Field Football . Decathlon, Star League Baseball, 
Barry McGuigan Boxing, The Great Amerian Race, Guickshot 
Joystick. Commodore Sports Holdall. 

PLUS Software Pack 1,2 or 3 above . E169.96 



COMMODORE 560P 

2-colour Dot Malrix Primer lakes 2jin. roll paper £49-95 £29.95 

STAR NL10 Dot Matrix Printer 

Commodore Version {with CBM64/ 128 Printer Lead) £219.95 

Conironics Version (with Amiga Printer Lead) £229.95 

Commodore 1571 Double-aided Drive £239.95 

Commodore 1901 Colour Monitor £219.95 

Philips 64/128 Green Screen Monitor £89.95 

Commodore 1541 C Disc Drive £159.95 

Commodore 128D t £399.95 

Commodore MPS 1000 CBM/Centronics Primer £229.95 

Commodore 128 Computer £199.95 

Commodore DPS 1101 Daisy Wheel Printer £199.95 

PERSONAL CALLERS AND EXPORT ENQUIRIES WELCOME 

ALL OFFERS STRICTLY SUBJECT TO AVAILABILITY 
ALL PRICES INCLUDE V.A.T. UNLESS OTHERWISE STATED 



r 



£75.00 



£24.95 



CBM 64/128 MUSIC EXPANSION SYSTEM 

Including Keyboard. Synthesiser and Software 

COMPOSER/EDITOR SOFTWARE 

For Music Expansion System. Tape or Disc. . . 

ACTION REPLAY Mk III 

Tape lo Disc Back-up Carindge £29.95 

NEOS MOUSE 

WITH CHEESE SOFTWARE, Tape or Disc C24.95 

COMMODORE C?N DATA RECORDER £29.95 
BLAZING PADDLES 

Ltghtpen /Graphics Illustrator Package, Tape or Disc , £24.95 

"Powerful, well designed — a really sophistica ted graphics package " 
— Your Commodore 
PRINTER RIBBON OFFER 

MPS 801. 802 Ribbons £5.95 

MPS 803 4 MPS 1000 _ E4.95 

DPS 1101 Multi Strike £3.50 

BUY FOUR AND GET ONE FREE! 



To order, either send cheque'P.O wilh coupon or ring (0533)517479/21874 wilh 
Access/Barciaycard number Please allow 7 working days for delivery from receipt ot order ot 
cheque clearance 

Please add C ' 00 towards carriage and packing on any software order 
Hardware orders add £1.00 under C6S. 00 value, and £5 00 over £ 65 00 1 
Printer orders add £5 00 lowards cart lago 



Send to: Depl. No. YC 12. Dimension Computers Lid., 

27/29 High Street. Leicester LE1 4FP. 

Tel: (0533) 517479/21874 Fax: (0533) 511638 
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/7 CAN NOIV DO ALL 77##5? 



1 PROGRAM 
PARALYSER 



Stopi even the most HEAVILY PROTECTED PROGRAMS 
AND DEFEATS Ail ".inn-frew" wtinkiutt 



2 BACK-UP 
GENERATOR 



' TAPE/DISK . DISKfTAPE . DISK/DISK. TAPE/TAPE 
Transfers memory restient proBrarm whether 
leaded frorr dish or tape. 



3 SPRITE 
EXTRACTOR 



f Displays the sprats lor you io edit, and then save, or 
RESTART the game using your tuuomrted ones, tou can 
view the animation too. 



4 SPRITE 

IMMORTALISER 



This feature dlsabSn the sprite collision detection — prolong* 
acme spnres ... these features not yet present on upe 
wson. 



5 HIRES SCREEN 
GRABBER 



Saves a HIRES screen and risen alter it ullng one of several 
utilities widely avarfaWe 




6 CHEAT 
MACHINE 



The easy way to enter cheats and " pokes". Cain eitra live* 
or infinite energy, etc., etc 



7 CODE 

INTERROGATOR 



A trury professional machine-code monitor, operating over 
all MK Ram, with disassemble, compare,, transfer, fid, 
assemble, hunt, search, mofidy, jump number conversion, 
etc. PLUS, B command lists &ASKI At R restarts a program 



8 AND IT'S ... 
THE ONLY 
PROGRAMMABLE 
CARTRIDGE 



Specific multi-part back-up utilities 
Additional operating systems 

• Fast file copier etc. etc. 
• Monitor with print command. 

ONLY £5.95 



Talso 

• saves programs in one file 

• compacts programs 

• reloads ar decompacts programs 
within 35 secs. 

• expert not needed for reloading 

• compatible with all cbm 64s « 128 



r 



*wH NEVER need to return the cartridge lor upgrading - 
limply send for the latest software - onty £2.00 exchange 
disk or upe. V* calculate that you could buy and EXPERT 
and several upgragn lor what it wi cost you 
rival products. 



UPGRADE 



9 PRINTER 
DUMP 



Prints out exactly as shown on screen — high fil low res. 
Simpty amajing — it worlo with both serial or Centronics 
printers. 



10 EXPERT 
EXPRESS 



Use your EXPERT as a cfek turbo cartridge i 
loading 



\peed up disk 



CARTRIDGE 



11 ICON 
DRIVEN 




Operating system improved and ewn more powerful 
machine code monitor. Help key. Dual screen faohty. 



■I And we haven't forgotten a^iwdusen 

W v There is now a 2 Pass Assembler 

S Label GeWnthj Dlsaveniblet Included. 




OUR POLICY OF EASY | 
UPGRADABILITY 
BENEFITS EXISTING 
USERS AGAIN . 

FORV3.1 SOFTWARE"* 

ND ONLY £3.50 

STATING WHETHER TAPE OR DISK REQUIRED., 



ALL PRICES INCLUDE VAT AND P8tP. 



EXPRESS 
DELIVERY 

ADDE1-9S 



• FAST MAIL ORDER SERVICE - PROMPT DESPATCH 

• ALL PRICES FULLY INCLUSIVE PLUS 10 DAY MONEY 
BACK GUARANTEE ON ALL BACK-UP DEVICES. 
PAYMENT BY CASH, CHEQUES PAYABLE TO TRILOGIC 
BY POSTAL ORDER OR ACCESS. ADD £1 EXTRA FOR 
EXPORT ORDERS, PAYMENT IN STERLING ONLY PLEASE. 

THE EXPERT AVAILABLE IN EUROPE FROM CAT K KORSH ROTTERDAM 010- 31 1 04507696 



Write or 'phone TEL: (0274) 691 1 15. 

24 HOUR ANSWER PHONE 

Trilogic Dept. AA, Unit t 
253B New Works Road 
Low Moor, Bradford, BD1 2 OQP 






rpFEuTiu^DisK. 



RAMBOX 

EXPERT RAM PACK 



The EXPERT RAM PACKS are designed for use with the 
EXPERT cartridge and can be used 10 store several operating 
systems thus avoiding the need 10 load and reprogram disk or 
tape They can also be used as general purpose memory packs 
'rams distal using software presently under development so 
that lor example, you could save the current program in a 
battery back-up version ready for instant use. Another use 
would be to 'twitch' from one program to another at the press 
of a Icey. 

These ram packs, when combined with the EXPERT make the 
•deal software deveiopen tool; further developments on this 
heme wiH be announced soon. 

With these ram packs, TRILOCIC have given 
programmers an exciting opportunity to develop 
commercial software which a presently limited by 
the internal memory size S stow CMB disk drives. 



^~tWocK 




AL 1 $Ziy.£12.9s/. 



CBM 1901 MONITOR 
1901 RGB CONVERSION 



| ONLYE12.99 *-'/ 




TRILOGIC 




FAST ORDER 
FORM 

All prices Indude VAT and P a P. 



Please forward the following: 
(Tick Applicable Box) 

EXPERT CARTRIDGE with V3.1 £29.99 

UTILITY DISK £5.95 

V.3.I. SOFTWARE £3.50 

RAMBOX 32k £39.95 

RAMBO X 64k £49.95 

AMIGA LEADS. All £12.95 

AMIGA LEADS. AL2 £12.95 

AMIGA LEADS. AL3 £14.95 

AMIGA LEADS. AL4 £12.95 

AMIGA PRINT LINK £29.95 

CBM 1901 CONVERSION £29.95 

COLLECTION/DELIVERY SERVICE. .£24.00 



Charge to Access - My Access Card No. Is: 



Name ... 
Address. 



Postcode » 



Tel. No. 




REVIEWS 




For the more intelluctual challenge, cast 
your eye over the latest in brain-straining 

games. 
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SCRABBLE 

game fans everywhere will be silling up and 
taking notice of this latest release from Leisure Genius, as 
it provides the only thing missing in the normal game of 
Scrabble - opponents. As a small quiz for word fans, which 
of the following two letter words would be allowed — ai da 
jo. st and yu? 

Although other humans can play, the effect isn't 
particularly stunning as you are forever having to send 
people out of the room so that they can't see your titles. You 
can play against up to three opponents and choose from up 
to eight skill levels for each. Levels one to four are relatively 
easy. An extra section of obscure words is accessed for the 
higher levels. 

The computer boasts a vocabulary of some twenty 
thousand words. This means that there are going to be quite 
a few occasions when you play a word that it doesn't 
recognise. It will then challenge you and ask whether that 
word was correct or not. This is fair enough, but I suppose 
that if you are the sort of person who plays 'XZQJ' on a 
triple word score, you are not going to remove it when 
challenged. 



Another feature is that you can now play against the 
clock. A time limit per move or anything 'between ten 
seconds and ten minutes can be set. 

The board is a fairly uninspiring display but.asthevsav. 
the game s the thing and I was very pleasantly surprised at 
the quality of the game it gave me. It has a tendency to close 
the board down where-ever possible so you will have to do 
your homework and bone up on all those little two letter 
words. 

In answer to the quiz above, they are all OK meaning a 
three toed sloth, a Burmese knife, a beloved one, hush and 
precious jade respectively. Be warned, the computer knows 
at least four of the five. 

Touch line: 



Title: Computer Scrabble Deluxe. Supplier: Leisure 
Genius/ Virgin dames. 2-4 Vernon Tard. Poriobello Road 
London Wll 2DX. Tel: 01-727 8070. Machine: C64. Price 
£12.95 (Ca) £15.95 (Disk). 

Originality: 7/10. Graphics: 5/10. Playabilitv: 9/10. Value: 
H/W ' OMJL 
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HARDWARE REVIEW 



Cardboard 5 

Five cartridges into one slot will go with this useful 

C64/C128 add-on. 

By Stuart Cooke 



j 

M. I. like mysell. you have a number ot 
cartridges thai you use often, it can be 
a real pain repeatedly turning off your 
C64, pulling out the cartridge, pulling 
Ihe new one in. loading the software 
that you were looking at and then 
siariing all over again. Well the 
Cardboard S, available from Precision 
Software will change all of thai. 

Essentially the Cardboard 5 is a 
cartridge expansion board. Il comes 
complete wiih five replicas of the 
normal Commodore cartridge port on 
it. A series of switches allow you to 
have a cartridge in each of these slots. 
Altering the switches and pressing the 
reset button, provided on ihe 
Cardboard 5. allows you to change ihe 
cartridge in use, without resorting to 
powering down your computer, 

Blackpool Illuminations 

Beside each of the cartridge slots ihere 
is a series of LED's. These small lights 
allow you to monitor the behaviour of 
the following lines: 
Power indication for each cartridge 
Cartridge Request Enable 
XROM request lor each cartridge 
GAME ROM request for each 
cartridge. 

With five cartridges installed the 
board starts to take on the appearance 
of the proverbial Christmas tree. 

Knowledge of what each light 
refers lo is required as it is important to 
know at a glance which cartridges are 
powered up and selected for use. A 
knowledge of what the lights mean is 
also useful when selling up for 
operation. 



Switching them in 

The various switches that are on the 
board allow you to set up each of the 
expansion slots to operate in different 
ways. Caretul monitoring of the 
LEDs, already mentioned, together 
with careful experimentation with the 
switches should give you ihe correct 
positions for the switches for certain 
cartridges. 

The reason for the various 
switching options is due to the 
increasingly complex way in which 
manufacturers are designing their 
cartridges. 

Sorting oui what switch 
combination to use with each cartridge 
should cause no problems, as long as 
you follow the instructions given in the 
extremely clear manual, even though 
this doesn't claim to give all of the 
answers. 

Neat tricks 

Not only does the Cardboard 5 give 
you ihe ability to change the cartridge 
selected for operation with ease, il also 
gives a couple of extra features. 

Firstly, so long as the power switch 
for a specific cartridge is off. you can 
unplug cartridges from the expansion 
board, or even plug new ones in. This 
feature is extremely handy if you have 
more than five cartridges thai you use. 

Secondly, if you have two 
cartridges that don't use ihe same area 
of memory you can have them both 
enabled at the same time. 

Let's say that you had a 
wordprocessor on cartridge and a fast 
load cartridge. Wouldn't it be great if 



you could use them both at the same 
time? So long as ihe cartridges don't 
use the same areas of memory then 
with Cardboard 5 you will be able to 
use both together giving you noi only 
an instant wordprocessor but also fast 
disk access. 

I must admit thai 1 didn't manage 
to Iry ihe above claim out, since all of 
my cartridges are utilities and use 
similar areas in the C64s memory. 

Construction 

I feel lhat the construction of the 
Cardboard 5 could have been a little 
better. The underside of the board is 
simply covered with expanded 
polystyrene; this becomes the base that 
the Cardboard 5 sils on. The top of ihe 
case is fairly rugged plastic. Why 
couldn't the whole board have been 
covered wiih the plastic case? It would 
have made ihe whole product a loi 
more sturdy. 

Using the expansion card provided 
no problems at all. I eventually got ihe 
card to work with all my cartridges, 
after messing around with various 
switches. The Expansion card is 
presently silting at the back of my 64 
with my most regularly used carl ridges 
plugged in. ready for use at any time. 

If like me. you use a number of 
cartridges on a regular basis then the 
Cardboard 5 is just what you've been 
wailing for. 
Touchline: 

Name: Cardboard 5. Supplier: 

Precision Software. 6 Park Terrace, 
Worcester Park. Surrey KT4 7 JZ. Tel: 
01-330 7166. Price: £30.39 (ex. VAT). 
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Tri rTrVT Aworldof 
I I F 1 I I A I information at 

B ■ L r \ I your fingertips 



OFFICIAL COMMODORE/AMIGA DEALER 



I 



COMPUTERS 

Amiga 2000 1MD * 1081 Coioui Mon PHONE 

Amiga 500/1081 • dPsinl - MORE! , 889 00 

Amiga S00 - OPainl - Modulator ■ MORE! ., 459.00 

Commodore 128/C2N/3 Tapes/Joyslichv Games 229.00 

Commodore 64C/C2NO Tapes/ Joy slick-Spor Is Bag/Games I5B.D0 

PRINTERS 

OK1MATE 20 TEXT A FULL GRAPHICS 7-COLOUR PRINTER FOR 
AMIGA , 199.00 

Citizen 1200 Dot Matrix 120cps A NLO .179 00 

Commodore OPS1101 Oatsywrieel 179.00 

Star NLIOlor C64/12B 120cps A NLQ 219 00 

MONITORS 

Philips 8833 Col Mon inc lead 279.00 

Philips BM7602 Gteen Mon inc load 82.00 

Philips BM752? Amber Mon mc lead 94.00 

MISCELLANEOUS 

Commodore 1541C Dish Dnv* 175.00 

Commodore 157 1 Disk Drive .... 239.00 

Cumana CAX354 AJniga Disk Dri»B >• 135.00 

Commoooie C2N Data Recorder .35.00 

Supnr-G CenI Inlerl • Graphics 34 95 

RS232 interlace with disk soli ware , 57.44 

User port prinlcr caole , 15.99 

Commodore 64 Power Supply , 28.45 

Amiga MoOulalor , 24.99 

Amiga 512K RAM Expansion - Clock , ! 99.95 

Surge Proleclor 13 Amp Plug (Adapior £14.95| 11.95 

Amiga DOS Rel Manual (pAo £2) 18.95 

C128 Official Progs Rel Guide |p£p £2) m 95 

C64 Ollicial Piogs Rnf Guide (Dip £2> 7.95 

SOFTWARE (Examples) 

Amiga VIP Prolessional 99.95 

Amiga Soioble 2 > , , 79.00 

Amiga Superoase , 86 95 

Amiga Pro Midi Sludm . . , 139.00 

Amiga Aegis Son n , , 89 00' 

Amiga Pagesetler OTP , . , , 99.OO 

Amiga Dolu*e Paml 2 69.95 

Superoase 128 Pi ogramjioie Daiabase 5595 

Superscripl 128 Wora Processor 45 95 

Tasword M 40/80 Col WP - Tape- Disk 17.95/19 95 

VizaW'ile Classic 128 WP - Spell Check 79.35 



AIL PRICES INC. VAT. CARRIAGE E8. EXPRESS DELIVERY £12 
Software ft Small Items FREE 



Vdta Pi So^mneAtd 




The Microtext adaptor turns your C64 or C128 into a 
sophisticated Teletext Receiver. Giving you full colour display 
ot any of the free pages from Ceefax or Oracle. As well as news 
and sports results, there is road, rail and air travel information, 
whats on TV and weather reports. You can get an update on 
share prices or bargain holidays. And not only does Teletext 
cater for special interests, like computing, motoring, or 
gardening, but you'll also find things to do and places to go in 
your area, prize competitions and even your daily horoscope, 
plus much much more, It's all free, easy to use and it's all at your 

fingertips. 

A page like a recipe or a weather map may be saved to disc or 
cassette or even printed out and the manual has examples and 
shows how lo access and use Teletext from your own 
programs, the ability to use live information like football results, 
exchange rates or weather conditions, provides possibilities 
limited only by your imagination. 

The adaptor fits neatly on the user port of the Commodore. A 
lead goes to the 'VIDEO OUT' socket of your video recorder so 
using your Video as the Tuner for the system. 
Just £69.95 inc P4P (Overseas add £2.00) 

"I wouldn't hesitate to recommend this to anyone" 
— Your Commodore Jun 87 



MICROTEXT TUNER NOW AVAILABLE 

Our own Tuner has been specially designed to provide the 
signal that the Adaptor needs, thus eliminating the need for a 
video recorder. Just plug in an aerial. It tunes itself in (!) and 
channels are selected from the keyboard. The whole system 
consists of a Microtext Adaptor, Tuner, Power supply, lead and 
manual and costs just £114.80 inc P&P (128Dcersion add £8.50} 
Only from:- 



MICROTEXT 

Dept YC. 7 Birdlip Close, Horndean, Hants. P08 9PW 
Telephone: 0705 595694 



• AMAZING NEW "TOTAL BACKUP' CARTRIDGE FOR COMMODORE 64 AND 128 (IN 64 MODE) 

11 NEW ACTION REPLAY V. ^ FROM DOSOFT 
8 UNSTOPPABLE 'TOTAL BACKUP' CARTRIDGE 



OUR NEW INNOVATIVE HARDWARE AND SOFTWARE COMBINATION 
GIVES YOU MORE POWER, MORE FEATURES, MORE FUN!! 
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Disk. Mate Cartridge V.2 
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■ Super Compact 

Innlllttrnl iocnpiK1li>n lrihuii|ur* 

1.1:111-11-. .nir.ii' 1 i.r. .,.i .■ 1. 

Illn. Sale i at mnrr per : ■ ■ 1 •Mtr. 

■ MultistageSaves 

Iramim MQflf muliKiace k«ui r« 
I mm upc u>dl«k I hart any other. 
Ami alt pan* lurho kud— anoalirr 
feature unique u> VI kin Replay. 

■ So Easy to Use 

Acikm Kcpldi V. lisa i]rll|chi in uie_ 
All lurHTkini deNrlbed on xrrcn. 
- ■ 1 .. 1. 1. required. 



re)(isieni. rli I irry ihinu; you need 

■ Compatible 

lully iiHiipaiihk- with » mmouorc 
64.6lC.I>Mand l2HDtn64 nwde. 
IHI.IMK. 1*?0. and 
InhaiKef l>rlvc«.(!nM(*onipatlhlr 
l»pe m uedtra. I ui£tUS. and IXirhn 
ROM-can the other* *ay IhMfll 
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Aiiiiin Replay ami IliikMale are iImi ji allahlr tmni Oaltl tlecininkn 



99 

uuunc 
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Buy DlakMau «Hb Action Replay 

... 'S! . ., r, ,.\i ■ .M, , ^ 

Graphics Slidcshow 

\le% pi* Inimgnnr* praphit paikapei 
■ir kuilin^ ttrcmiiingji mui «qm*itae 
Id pmum prrUni lurholiuil Dlikonlv 

LOOKING GOOD AT £4.95 

SPECIAL OFFER) 

1 ■ 1 ' in ■ i.i. 1:: and slkteihow 
on one dlifc OMY kl 1 .9* 



100% SUCCESS? 
WE ASK: WHO'S 
KIDDING WHO? 

Anion Xrplai Vlwitlhaifc upAN>* 
IHininitii " huh 1M •■her I'lnndpc 
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SUPER SOFTWARE SALE 

Muv NOW and SAVE! SAVE! SAVE! 



The DoSofl Collection 

rNMATABLE OirlB The tarn HuWilH 
of Mt|ulran%lt>. Mrnarmiiy Mrfpllapc 
and PniSprlir ALL on One Dnk 
HALF PRICE £12. 50 WOW! 
DoSoft Super Disk Kit 

MMOVI hut rnth 13 Uda hBUan 
!'■ ■..!■!■ -i ■ A itirai xan in (te( yiiur 

pniHrami on dnk at a ei>"» ■> prue' 
SAVE! SAVE! SAVE! £19.99 



Mega McKaftpc Savings 

OCRfAMi AB tape jolapc uiilm *tn 
one Daiauetteat an unhiiuhle price. 
BUY NOW £5 BRILLIANT! 
Xidcx Precision Di*k.H 

fnirn the *URU>'s I tAUINIi SI PP1IEB— 
12 Ihiuhlr sided. Ooohle Deiutti AS Unk> 
inntpktc a ah drrto laheh lain am) 
mil hi||h ini|iM1 plailii imraitr hn» 

TWELVE FOR ONLY £8.50! 



Enhancement Disk 

del even more fnm AclHin Hcpbi « uh 
ihB Itoaiui lim lohai k up the no mrn- 
'landinl mulil-iiapc kuden 
GREAT VALUE AT £7.95 
1 kir i Jtitldnf* uny a twelve monih 
Kuaramei luainu mcduniral failure 

How to gel your DoSoflwarr 

PleMriend.idi.heuue'ro •vuhordrr 
loi Uu dnpau n ISAt unli hH hiildetalln 

Send i>!( RON |o 

i 1 1 |Depi YC \, • UJknuiur Ave. 

Ilijcknool.FYZOIE 

I 'k rlnapr im luled lunipeaddkO "A.i* 

k- if ontcr imludei Blank lh*k\ t)>rne» 

i.i r 1 1 M' foi Airmail mil - 

MMti Blank l>lik> 

DoSofi 

You'll Do it Better 
with DoSoft 



FAST DISK UTILITIES • LOADERS • 2 -MIN DISK COPY • FAST DISK FILE COPY • FAST FORMAT 



PROGRAMMING 



Using the 

Z80 Micro 
processor on 

the C128 



Did you realise that you could use the Z80 
microprocessor without running CP/M? 

By Leigh Brown 



./4 s everyone thai has a C128 
knowns. it has a Z80 used for CP/M- 
However, not everyone knowns that 
you don't have to be running CP/M to 
use it. To facilitate the Z80, you clear 
bit zero of location D505 by: 

POKE 54533, 176 



However, this will reset the 
machine as the Z80 will execute an 
RST 08, which is the reset outline. As 
the next instruction is at FFEE al! we 
need to do is replace the RST 08 with a 



jump to our Z80 program. First, the 
Z80 program. 

As the monitor only assembles 
8502, enter: 

>I400 21 40 21 II 00 20 01 00 
> 1408 IE ED BO C3 EO FF 

Now, redirect the Z80 code at 
FFEE: 

>FFEE G3 00 14 

Finally, enter the 8502 loader: 
A 1300 SE1 
A 1301 LDA # 3E 
A 1303 STA FFOO 



21 40 21 LD HL.2140 


;start address of block 


11 00 20 LD DE.2000 


destination address 


01 00 IE LD BCIE00 


number of byte to copy 


ED BO LDIR 


;copy block 


C3 EO FF JP FFEE 


;return to FFEE 



A 1306 LDA fi BO 
A 1308 SRA D505 
A I30B NOP 
A I30CCLI 
A 130D RTS 

To call the Z80 rouiine. call the 
routine at 1300 hex. 

Finally, here is a demonstration: 
10 GRAPHIC 1,1 
20 CIRCLE 1. 159.99.99 
30 BANK 15 
40 SYS 4864 
50 END 

Just replace my routine with yours 
and if you want to move the start 
address of your Z80 code, change the 
jump at FFEE. Also, the Z80 BIOS 
ROM is located from 0 to FFF so do 
not use this area for programmes or 
data. And remember that to access the 
I/O area you must use the IN and OUT 
commands. Who knows? There may 
eventually be a Z80 assembler for the 
CI 28. 
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STACK COMPUTER PRODUCTS 



C64 CI28 128D 



C64128128DVIC20 



C64128128D VIC20 



ALL CAM'S 



4 SLOT 

MOtHfOBCABD 




UNIQUE 

switching 
system 



LIGHTPEN 



U5I COMPATIBLE 
CABTP-.DGES TOGETHER 
MOOfM Vf PSION AVAILABLE 



15401541 15501570 



NOTCHIR 




HALVEDM COLTS 



1 IMDoirt on imgie 



1540 1541 1550 1570 157) 128D 




10 SUPER DISKS 

IN LIBRARY CASE OSOD 

10 HIGH QUALITY IN 
POLYTHENE BAG 



1520 PRINTER/PLOTTER 



ROLLS 




PACK OF 4 PENS 
BLACK, RED, BLUE. 
GREEN. 



NEW PRODUCT 





• DffA* ACCUBAtnr 

• SOFTWARE • IQGAMfL 

• TAPE A DIS< 

• mm piciupfs 




DISK 

Fl» 154111570 
SPIED * 
ALIGNMENT 
SIMPLY 



ALIGN ft CLEAN 
ALL CBM TAPE 
l\ DECK5 ON ALL 
i\ CBM'S SIMPLY 





HACK MOUSi 

• JOYSTtC'.MOUSt 

XV A*ii lOC« ■ flHinSH MADE 
100% CBM COMPATIBLE 



HIGH 
QUALITY 
RIBBONS 

• MPS801 

• MPS802 

• MPS803 

• 1525 

• 1526 

• DPS1101 

• MX'FXBO 



3.78 



ALL OTHERS AVAILABLE 



ALL CBM'S 




PRINTER 
SUFFER 

ALL CBM COMPUTERS 
ALL CBM PRINTERS 

64K BUFFER £90 

32K BUFFER „.£70 




5V." • LOCXASlt DIM 
STORAGE BOXES WITH BtCllD 
INDI" MPAPAIOHS 



BS3130 




FROSTERED-ILACK TRIMMED 
ANTI-STATIC FIRI RETARDANT 



Plui4 
12B 

caHifoaqrmi 

1541.1570 
157' 
MPS801 
'701 



l '5 

1.75 
M0 
450 

I SO 
lOO 
lOO 
l.OO 

too 




fDQ-iCBMCOUPATIBU 
COUNTER 

oecoto ughj 

C'fit.4 ADAPTOB 1 J (MBA 



C64 C128 128D 




Nios mouse k cheese 

• TAPE £24.95 

• DISK £29.95 



C64 128'slN64MODE 



• EXPERT WITH ESM . . . £29.95 

• FREEZE MACHINE .... £28.95 

WE WILL ALWAYS SUPPLY 
THE LATEST VERSIONS 



C64128 +4VIC20CT28D 



FULL 5131 
BI-DI IHTI9FAC! 



C64 128 



INTERPOD 




IEEE-R5232 - C64 

• USE 4040 8050 DISKS 
ON 64J128 

• BI-DI RS232 

(IEEE LEAD £18) 



.SOURCE 



CEST 



IEEE 



IIC 



CENTRONICSiC64 
INTERFACE INCLUDING 
8K BUFFER 

CENTRONICS INfCBM 
SERIAL OUT 



VIC MODULATOR 




• 64 POWER SUPPLY £26 95 

• C16 POWER SUPPLY £22.00 

• +4 POWER SUPPLY £28 98 

• 128 POWER SUPPLY £52 44 



C6M 
i'i''AL 



CENTRONICS 



BS28 



CBM 
USER POP' 



IEEE 



3303? 



39000 



32032 

«o;os 



cm 

5£5'AL 



3900 
AX3' 



AO068 



92068 
A006S 



moo 

A0O31 



CEN'^ON OS 



29008 



28064 



R5232 



38000 



A0031 



62064 



86120 



A0012 



CBM 

USERPORT 



AMQj 
A0Q43 



A0012 



INTERFACE MODEL-NUMBER-FINDER CHART 



VIC 20 



• 4 SLOT 
MOTHERBOARD 
SWIICHABLE 

• 3M6K RAM PACK £34 95 

• 3I1&32K RAM PACK £49.95 




'6 RAM PACK 



C64 128 128D 




REVS 

ANALOGUE 
JOYSTICK 

• FULL MOTION 

• SUPERB FOR SIMULATIONS 




CONNECT ANY 647131 
SEND'HfCSIVf 



CABLES 



• DISK PRINTER £4.75 

• TV LEAD „ £1.75 

• USER PORT 
CENTRONICS £18.00 

• AMIGA 500 
PRINTER £18.00 

• SERIAL SPLITTER....E7.25 

• RS232(2metres)£15.00 



C64 128 



• ARROW + £11 

• HIGH J^EED CASSETTE 

• M'C MONITOR 

• AS5EMBI EBDISASSE MB1ER 



• SUPER HELP £12 

• "30 BASIC COMMANDS 

• * SSI MB 11 tt 1 D4SA<SE MBt E B 

• MOWTORBDOS SUPPORT 



• BLITZ COMPILER £15 

• HONS BASIC MUCH FASTER 

• ACCEPTS EXTENSIONS 

• SIMPLE OPEPAltON 



64128 +4C16VIC20128D 




■ ".in _ 

■Ml 
opywci 

ON DO) 

NINflBS 

■ 101)-) 
-- r . 

• cw«ir.«Btl 



64 128 128D V20 



RE5ET SWITCH 




RESET * POKE 
USER PORT TYPE 



• DISK CLEANER £7 50 

• COPY HOLDER £15 90 

• MONITOR SWTVEL 12" £13 80 

• MONITOR SWIVEL 14" £17.26 

• SURGE PROTECTOR £22 00 

• LO-UNECASE £'9.95 

• '525 PAPER £23.80 

• C14V + 4 CASSETTE ADAPTOR ..13 75 

• C16.'*4 JOYSTICK ADAPTOR £3.75 



FREE 40 PAGE 
CATALOGUE 
AVAILABLE 
ON REQUEST 



PRICES INCLUDE 

VAT 
P&PE1.90 U.K. 

(FREE OVER £20) 

OVERSEAS £3.00 



MEEDMORE 
(Distribution) LIMITED 
28 Farriers Way 
Netherton 

Merseyside L30 4XL 
Tel: 051-5212202 



REVIEWS 

Mastertiilnic 



The latest catalogue from Mastertronic 
contains nearly 100 C64 games - look 
ahead at the new Autumn releases from 
the cut-price kings. 



By Tony Hetherington 



i 



n just over ihrcc years Mastertronic has grown from the 
first budget software house to become a major publisher 
with eight software labels, including the relaunched 
Melbourne House, a range of music cassettes and videos, 
Arcadia coin-op machines(based on two megabyte Amigas) 
and the marketing rights to the Sega Master System. 

From Strength to Strength 

The original Mastertronic range (£1.99) now boasts over 50 
games that include the top selling Formula One Simulator, 
which is an adventure based on Monty Python's Holy Grail, 
the Gauntlet Clone Storm, BMX Racers and Trials, Speed 
King (the motor bike game that gave the full priced Super 
Cycle a race for your money), the return of Tasket's Super 
Pipeline II (in which you and your plumbers male must 
bailie against lobsters and Venusian Pipe spiders to fix a 
leaky pipe) and countless arcade and platform games 
including Pod, Video Meanies and Molecule Man. 

It s a Mad, Mad World 

Two years ago, Mastertronic launched its MAD. 
(Mastertronic Added Dimension) range of games that cost 
slightly more (but still only £2.99) and contained games such 
as Spellbound and Mastertronic that still rival their full 
priced counterparts. 

Spellbound added "Windimation" to the adventure 
world as its animated hero (Magic Knight) wanders through 
the rooms of the mythical castle of Karn in an attempt to 
sine Gimbel the Wizard. Whenever an adventure action 
such as pick up. drop, read or give is required, they are 
selected from window menus. 

Spellbound also has six incredibly unhelpful characters 
including Thor, who needs a hammer, Samson who is strong 
but what use is Florin the dwarf, Orik the Cleric, Lady 
Rosmar or the wailing Bansee? 

To succeed in your quest to save yourself. Gimbel and 
the others, you will have to keep these characters alive and 



get them to help solve a series of devious problems such as 
how do you get across a dark room full of explosive gas. Clue 
- using the candle has disasterous results! 

If you've solved that then why not try to survive an 
exploration in dungeon of Master of Magic. A split screen 
display is your guide in this joystick-controlled role-playing 
game, as you attempt to escape the deadly grip of Thelric's 
spell. 

By selecting commands you can walk, run and flee 
through the caverns of this dungeon and do battle with 
skeletons, ores, giant bats and vampires that are displayed in 
lurid detail at the bottom of the screen. Defeat them and you 
could find magic armour, weapons, magic scrolls and rings 
that may help you to survive to fight another day. 

Attack of the Mutant Camels is my favourite Jeff Minter 
game and has returned as part of the MAD range. Now for 
only £2.99 you can climb into your fighter and blast away at 
the laser bolt spitting. 90 foot high, genetically engineered 
killer camels. Manic arcade action with Minter at his best. 

On Cue, Angle Ball and Motos form a trio of new games 
in this exceptional range. On Cue combines two excellent 
versions of Snooker and Pool on one tape and allows you to 




Spellbound 
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set the power and direction of your shot, as well as the 
amount of spin on the cue ball for those key position shots 
that will beat your human or computer opponents. 

Angle Ball lakes pool into a dimension as vou must battle 




ingfe Ball 

against your opponent and the unusual angles found on a 
six-sided table! 

Motos is a simple-to-lcarn, but impossible-to-master 
coin-op conversion of a Namco arcade machine. In this 
incredibly addictive game you must defend a space grid from 
the invasion of the space bees. These invaders must be 
thwarted by shoving them off into oblivion and clearing the 
grid to progress to the next one where you will meet more 
stuborn bees that will require bonus power parts to shift 
them. A simple but incredibly addictive game. 

Ricochet is Mastertronics £1.99 label that brings back 
full-priced games at a budget price. The original line up of 
Eddie Kidd's Jump Challenge and Brian Jack's Superstar 
Challenge is now joined by the frantic but fun shoot'em up 
Crazy Comets and soon by the Ultimate arcade adventures 
Blackwyche, Dragonskulle and Outlaws. 

Americana which was formerly US Golds budget label is 
now with Mastertronic and features a line-up of full-priced 



HI-SCOfiE 
OOOOblOO 



1-UP 

0000b 10 0 




Motos 



American software brought back for only t'2.99! 

Soon you'll be able to storm the beaches in the multi- 
stage arcade game Beach Head and in its screaming sequel 
Beach Head II, fly daring bombing missions in Dambusters, 



fight them in the ring in Fight Nights and beat them up as 
Bruce Lee or a Kung Fu Master. 

Each of these games has already featured at the top of the 
charts so represents amazing value at their new budget price. 

Melbourne House, one of the oldest software houses was 
bought by Mastertronic and poses a new challenge. If 
Mastertronic already produce some budget games that are as 
good as full-priced games, then its own full priced games 
must be even better. 

The first batch of releases include two conversions of 
Mastertronics own Arcadia coin-op games Road Wars and 
Rockford, and the amazing world of Metropolis. 

Roadwars is a high-speed duel between two 
Battlespheres (you and your human or computer opponent 
to clear the road that circles the Moon of Armageddon of 
obstacles that range from simple barriers and spikes to 
powerful spaceships and creatures. 

In Rockford you're on your own in a fight against time to 
cither collect the Pharoahs gold coins in the Caverns of 
Craymar of the Emeralds of Erasmus hidden in the sunlit 
seasofTiresuisoreven the Apples of Eternal Youth from the 
Kitchens of Kyssandra. However, these treasures aren't 
gained easily as you'll have to run the gauntlet of falling 
rocks, battling bats, maddening monkeys and even 



TONY 



■P55T 



DIP 
STICK 




Fight Nights 

poisonous pizzas. 

Soon you'll be able to enter the world of Metropolis. You 
came looking for a stolen tape, instead you found the once 
sprawling city, now empty apart from a few droids. Yourjob 
is to find out where all the people went. 

Amiga owners will find cheap and cheerful games for 
their machine ranging from the action of Ninja Mission, 
Chopper X and Space Ranger to the magical world of Feud, 
the excitement of Vide Casino and the mind boggling 
hexagonal action of the six sided Pub Pool table. (All for 
t'9.99 each.) 

There's more to come not only from the labels mentioned 
above but also from the Bulldog (£1.99) range. 
Entertainment USA and now from Rack-It which is a joint 
deal between Mastertronic and Hewson! 

Finally, the Sega Master System is a dedicated games 
console (that costs £99.99) and plugs into your TV and 
allows you to play coin-op conversions such as Quartet- Out 
Run. Enduro Racer and Space Harrier that are supplied on 
cartridges with as much as two megabytes of memory! fflg 
Touchline: 

Mastertronic: 8-10 Paul Street, London EC 2 A 4JH. Tel: 01- 
377 6880. 
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SPREADSHEET 

£12.95 



pet*** 



Log 



95 



INCLUDES 



9 

WORD 
SPELLCHECKER 



STY W0RD PRO 




'oo.ooo 



u C e S S 0 p 

P.2I15 




1295 is all you need 



LOGOTRON 



1295BUSIN 



ERIE 



Fully integrated software for the Commodore 64/128, IBM PC and alt IBM compatibles 

For all the information telephone or write to Richard Laidlerat; 
Logotnm Business Products. Dales Brewery, Gwydir Street. Cambridge England CB1 2LJ « (0223) 3236% 




LOGOTRON 
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PROGRAMMING 



May I 
Interrupt? 

Interrupts are simple to create and effective in use, once 

you learn the secrets. 



II organisations have teams of 

workers behind the scenes who keep 
the e n v i r o n m e n t clean and 
uncluttered. These nocturnal 
operations often go unnoticed and 
their value is frequently underestimated 

but without this army of night staff the 

wheels of industry would grind to a 
halt impeded by a pile of litter and 
dust. 

Inside your Commodore there is a 
comparable team consisting of 
routines which prevent the computer 
from grinding to a hall. 

A computer is not a very sociable 
creature. Left to its own devices it is 
quite happy to refresh the power-up 
screen and busy itself with the fairly 
demanding job of being a 
Commodore. Unfortunately, just 
'being' is not enough; a machine has to 
work for a living otherwise it is not a 
machine but an artwork or curio. To 
work effectively a computer must 
communicate with the outside world: 
there has to be a dialogue between man 
and machine. 

The Secret of Communication 

The only way to interact with a 
computer is through the use of 
joysticks, lightpens. graph pads or a 
similar peripheral device. The main 
method of communication is the 
keyboard. While I'm typing away on 
this wordprocessor I expect to see my 
perfect prose exactly reproduced on 
the monitor screen. The fact that the 
Commodore is performing technical 
miracles at the rale of several hundred 
per second does not mailer, bui to 
program the next game or utility I need 
to fully understand what is going on 



By Eric Doyle 

behind the screens. 

Like humans at work, the 
computer has two basic tasks. One is to 
outwardly perform the job the boss 
wants done and the other is lo stay 
alive while doing it. As we work so we 
brcaihe.'hear. feel and see. Our hearts 
beat, our digestive systems churn and 
our glands secrete. We can control 
some of these functions, but often they 
run without us fully appreciating their 
presence or function. 

In computer terms this self- 
maintenance is serviced by ihe 
Interrupt system* * series of routines 
which operate so fast lhal they are 
undetectable and yet they are run sixty 
times every second! 

Non-mask or Ask? 

There are two kinds of interrupt: Ihe 
non-maskable lype (NMI)and the far 
more important interrupt request 
(IRQ). The NMI is of little interest 
other than to note that it can be caused 
by a peripheral device demanding 
attention or by the RESTORE key. In 
other words an NMI occurs when 
something shouts. "Oil". An IRQ 
occurs every sixtieth of a second and is 
equivalent to the computer saying to 
all its peripheral devices. 'OK. be 
quick, whai do you want? I've a 
million other things to do. you know.* 

To the computer anything oiher 
than its own 'brain' is a peripheral; 
the video chip, disk drives, primers, 
cassette recorders and. most important 
of all. the keyboard. It is because of the 
frequency to the IRQ lhat response to 
a keypress is so swift as to appear 
instantaneous. 

Although the central processing 



unit (CPU) has a lot to do during an 
interrupt, there is still plenty of time 

left for other things Ifwe can latch our 

own routines onto the interrupt chain 
we could effectively run two 
programs at once. 

With great forethought, the 
Commodore compulerarchitccts have 
created an interrupt servicing routine 
which calls upon a vector stored in 
RAM to see where the main interrupt 
routines are stored. If this vector is 
found we can point it to our own 
routines which w ill then be executed as 
though it was part of the normal IRQ. 

According to the C64 memory map 
these locations are the two byles 
starting at location 788 ($0314). 

Examining Listing one. This is a 
standard model for replacing the old 
vectors with new ones. The old vectors 
point towards the ROM interrupt 
routine at $EA3I which basically scans 
the keyboard. The vectors must be 
forced to point lo SC040 which is the 
location of the additional routine 
which exits bv calling the old vectors 
(JMP SEA3I). 

Caught Us Interrupting 

The only real problem with changing 
vectors is that an interrupt may occur 
between changing location 788 and 
changing 789. If this did happen the 
interrupt would be thrown towards 
location -SEA40 and a system crash 
would occur. This has been avoided bv 
using the SEI instruction and the 
following commands which prevent 
interrupts occurring until ihe CLI 
command is reached. 

This is all there is, just put your 
routines at SC040 and you need never 
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use any other routine to set up your 
interrupt. 

You'll notice that the routine also 
changes the NMl vector at $03 18. This 
is just to demonstrate that NMl may be 
used for special RESTORE key 
functions. The simple routine at SC060 



merelv clears the screen, disabling the 
RUN/STOP-RESTORE break. You 
did remember to save your program 
before running it didn't you? 

While the interrupt is running you 
might like to type NEW and enter and 
run the Basic listing. You've just 



10 


0000 




;LISTIN6 1 


20 


0000 




;SET UP FOR INTERRUPT 


30 


C000 




. ORG SC000 


40 


C000 


7B 


SEI 


50 


C001 




; DISABLE IRQ 


G0 


C001 


BD0DDC 


STA SDC0D 


70 


C004 


BD0DOD 


STA $DD0D 


80 


C007 




; ENABLE IRQ 


90 


C007 


AD0DDC 


LDA SDC0O 


100 


C00A 


AD0DDD 


LDA SDD0D 


110 


C00D 




; CHANGE $0314 UECTOR 


1S0 


C00D 


A940 


LDA #$40 


130 


C00F 


BD1403 


STA $0314 


140 


C012 


A9C0 


LDA #$C0 


150 


C014 


BD1503 


STA $0315 


150 


C017 




; CHANGE $0318 UECTOR 


170 


C017 


BD1303 


STA $0319 


1B0 


C01A 


A9S0 


LDA #$E0 


190 


C01C 


BD1B03 


STA S031B 


200 


C01F 




; ENABLE IRQ 


210 


C01F 


A901 


LDA #$01 


220 


C021 


BD1AD0 


STA SD01A 


230 


C024 




; RETURN TO BASIC 


240 


C024 


58 


CLI 


250 


C025 


G0 


RTS 



turned your computer into a three-ring 
circle. This may seem pretty clever at 
the moment, but in future months I'll 
start going into multiple interrupts, 
split screens, smooth scrolling and 
many of the other tricks of the 
professional programmers' trade. W§ 



MAIN ROUTINE AT SC040 



10 


0000 




;LISTING 2 


20 


0000 




; INTERRUPT ROUTINE 


30 


C040 




. ORG SC040 


40 


C040 


A900 


LDA #$00 


50 


C042 


BD0004 


STA S0400 


G0 


C045 




; INCREASE LDA UALUE IN 30 


70 


C045 


EE41C0 


INC $C041 


80 


C04B 




; INCREASE STA SCREEN LOCATION BY TWO BYTES 


90 


C04B 


EE43C0 


INC SC043 


100 


C04B 


EE43C0 


INC $C043 


110 


C04E 




; RE-ENABLE UIC IRQ 


120 


C04E 


A901 


LDA #$01 


130 


C050 


8D19D0 


STA SD019 


140 


C053 




; TEST FOR KEY PRESS 


150 


C053 


4C31EA 


JHP $EA31 
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1 ffk 
1 W 


fh r% /Tk n 




; L I S i I NE 3 


20 


0300 




i RE5TURE K£i KUUT 


*a r* 


r— r» — r> 






Li (-» 


LUbtJ 


1 J Q 

TO 


rnH 




LUbl 


Bfl 


1 AH 


b'J 


Lube 


tin 


rnH 




i** ch r~ 
LUb J 


nn 
3D 


- In 


or* 




4B 


rnH 


90 


C055 


A993 


LDh HSS3 


: 3C 


C0B7 


H0D2FF 


JSR SFFD2 


110 


C0BA 


BB 


PLA 


120 


C0BB 


ft8 


TRY 


130 


C06C 


BB 


PLh 


140 


C0BD 




TAX 


150 


COSE 


SB 


PLh 


150 


C05F 


H0 


RTI 



5 SYSie»4096 

10 A-CA+DAND 15 

E0 POKE532B0 , A 

30 B-CB+.l) 

40 IF B>15 THEN B-0 

50 P0KE532B1 , B AND 15 

55 IF B<>0THEN100 

60 FDRB=0TOe55:PDKE53e70,B:NEXT 

70 B=0: PQKE53870, 200 

100 GDTD10 



0 REn SET INTERRUPT 

1 DATA 180,169,31,141,13,220,141 
, 13,221 , 173, 13,220, 173, 13,221 , 16 
9,64 

2 DATA 141,20,3,169,192,141,21,3 
, 141,25, 3, 169, 96, 141 , 24,3, 169, 1 , 
141 

3 DATA 26,208,88,96,500 

4 REfl INTERRUPT 

5 DATA 169,0,141,0,4,238,65,192, 
23B.67, 192.23B.67, 192, 169, 1 , 141, 
25 

6 DATA 20B, 76, 49,234,500 

8 REH RESTORE ROUTINE 

9 DATA 72, 13B.72, 152,72, 169, 147, 
32,210, 255, 104, 168, 104, 170, 104,6 
4,500 

10 A«12*4096:GOSUB200 

20 A-12*4096+64 : GOSUB200 
30 A-12*4096+95:GDSUB200 
40 END 

200 READB: IFBO500THEN PDKEA , B : A 
-A+l : GOTO200 
210 RETURN 



COMMODORE PLUS-4/C16 
NEWI-BANGS AND CRASHES!! 
RHYTHM BOX 

THis RylhrrvDrum bo* Mill sol your loot lappingi Al a 
very modest cost you can sequence a wide variety at 
digitally recorded percusion sounds. Very easy to use 
No knowledge ot music is required in seconds you can 
set up puisaling rythms to accompany your music A 
variety ol drums, torn loms cymbals and a bass guitar 
combine lo produce sounds you never thought possible 
on the C16/Plus4 Easy entry ol rhythms and a powerful 
pattern odilo' An eacolieni package - good value al 
£/ 95 cassette £9.95 disc 



NEWI-WISP 
Amazing new product! 

WlSP offers you a refreshing new way 10 operate your 
PLUS 4 WISP stands (or Windows Icons Silicon-disc 
Package II is packed with many powerful features 
Everything in your new operating onviromcnl is run 
through windows — iust like on very expensive 
computers Built m wndow facilities include a) 
calculator b) silicon disc c) notepaddjdiroctoticse) last 
load and save l| error (rapping gk programming 
windows 

Windows may be closed and neatly stored as -cons A 
smooth sprite >s used lo select the windows you wish to 
use Irom the pull down menus 

With the silicon disc you can instantly save, load and 
directory — all m under hai' a second {much (aster than 
even a disc drive 1 ! 

The (as! load and save to cassette is about ten times 
normal speed' We nave never before sold sucn a feature 
packed program to give you power (o control your 
computer to its limits The ultimate programming 
environment. Incredible value Pius 4 only Cassetle — 
£995 DISC £1495 



NEWI-BLACK CAT 2 

We have black cal ? in stock and waiting to be 
despatched to you' Have you ever wanted lo use your 
PLUS-4 Woidpiocessor. Spreadsheet. Business 
graphics etc with a cassette unit' This program allows 

fou to save your hies to cassette rather than disc las 
sreed lo by Commodore J 

Version ? incorporates a FAST toad and save system so 
you can save your tiles to cassette at disc speed' Quick 
convenient easy lo use Only £5.95 



THE MIRROR-TAPE BACK UP 

Super tape to tape back up copier catering lor many 
PLUS-4'C16 games Backs up both standard and FAST 
loading software Very popular utility — Excellent Value 
- £7.95 



THE WAND-TAPE TO DISC 

Mate luii use of your disc drtve by effortlessly converting 
many of your oames/soHwflre 10 disc We nnvo had many 
tellers telling us how much people appreciate this utility 
Excellent value — supplied on disc — £12 95 

PHOTON LOAD- 
FAST LOAD AND SAVE 

Have you ever wasted lime waiting for your programs to 
load or save' PHOTON LOAD the new cassette 
operating system loads m seconds and allows you to 
load and save your programs at about TEN times the 
speed ol a normal load or save Why spend money cm a 
disc drive when you can load and save wis last Great 
value £7 95 

SUPER SPRITE 

This extremely clever utility allows you to use 8 sprites 
simultaneously over a low- resolution screen With this 
program you can now imitate the sprites found on the 
Commodore 64' A complete package with FREE demo 
programs and a FREE sprite designer What more do you 
need to bring real power to your games on your 
C16'PLUS4 A must loi games programmers Excellent 
value Cassette £7.95 Due £995 



ELECTRIK PENCIL!!! 

A Iruely e*cellent high resolution art program 
Magmlicanl masterpieces can be quickly drawn using 
the powerful lacHities provided by this package 
Impressive results in no lime at all Cassette only £7.95 
Disc only £995 

CASSETTE INTERFACES 

l' you nave a Commodore 64 cassette unit which you 
would like to use With your C16/PIUS 4 then you noed 
one ol these Just plug m and go' — Only £5.95 



MERLIN ASSEMBLER 

tOO o'o machine code assembler lor the Plus-4>C16 
Veiy last assembly ol source code Easy enlry'ediling ol 
code via We tuft screen editor Full load'save and printer 
facilities Variable names, labels, hea/decimai. teat and 
data slatements. remarks, post indexing ol vanableselc 
Many other facilities too numerous Id mention Highly 
recommended — A Iruely superb assembler Comes with 
instruction booklet and working examples ol machine 
code routines READ THE EXCELLENT REVIEW IN 
YOUR COMMODORE MARCH 1987 Casselle £8 95 
Disc £1395 



JOYSTICK ADAPTORS 

Converts any joystick to Pius 4/C 16 format Simply plug 
m and go' Only £3.50 

Tape Head Alignment C16. 4 

The perlecl cure (or the maiority ol loading programs 
Specification as for the Commodore 64 |seo below) 
Only £6.95 

COMMODORE 64 
EVER HAD A LOADING 
PROBLEM? 

Then send oil lor WIZARD S TAPE HEAD AL IGNMENT 
KIT 64' The mosl common cause of loading failure is 
bad alignment of your tape heads This kit allows you to 
sol up the rape heads ol your cassette unit lor the BEST 
possible loading conditions In many cases Wis will 
make a remarkable dillerence m loading reliability The 
complete leature packed kit £6.95'" 



RAPID despatch of orders. 

Send an SAE for our current catalogue with full 
descriptions UK P&P FREE and by FIRST CLASS post 
Europeans please ADD 50p Outside Europe ADO Cl 50 
lor AIR MAIL. Overseas orders welcome All payments 
must be made in pounds sterling Chequefc'POs 1o 

WIZARD SOFTWARE (Dept. Y101), 
20 Hadrian Drive, Redhills, Exeter. 
Devon EX4 1SR. 



yVIZARD SOFT^WARE lDeP ' Y10 V 20HadrianDrlv O< Redhills, Exeter. Devon EX4 1SR. 
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Adventure 
Kit III 

Continuing our adventure writing series, this month we 
look at various objects. 
By Allen Webb 



II adventures rely on objects, and 
this month I will look at the various 
uses they can be put to. They can be 
things you either pick up or use or they 
can be people or animals. All objects 
have basic features and exist at a fixed 
place, have a fixed size and generally 
have a fixed mass. These facts need to 
be stored in some way and 
manipulated. Lets have a look at one 
way of saving information and 
providing a set of routines to use it. 

The code occupies SC000-SC2D0 
and the area $8000 to S87FF allocated 
to object data. Each object has a 
record entry rather like conventional 
databases. Each record holds the 
following information: 
I byte specifying the object's location. 
I byte signifying whether the object is 
worn. 

I byte holding the weight of the object. 
I byte holding the length of the text 
describing the object. 
The object description in ASCII. 

It then follows that if the maximum 
description length is N, then each 
record will be N+4 bytes long. The 
system requires each record to be the 
same length so that a simple indexing 
system can be used. The maximum 
number of objects that can be stored is 
given bv: 
2048/(N+4) 

If you specify a name length of 16 
characters, there is enough room for 
100 objects. In my experience this is 
sufficient for most adventures. You 
must tell the code the maximum length 
of the object names. This is held at 
location 49182. A length of 16 is 
assumed by default. You can change it 
either by POKING in the new value or 
using the SETUP routine in the code. 



You must also tell the code how 
many objects are stored. This is held in 
location 849. You should remember 
that object 0 can be assigned so if you 
specify five objects, you can use 
objects 0 to 4 inclusive. 

The code provides ten commands: 



ISHERE 

SYNTAX: SYS SA.OBJNO.LOCNO 

The routine checks to see Whether 
the specified object is at the specified 
location. If it is present, the location 
846 contains 255 otherwise it contains 
0. The following example is useful 
where an object must be present to 
allow an action (e.g. EXAMINE.EAT. 
KILL). 

1000 SYS SA.OJ.LN: IFPHEK(846)= 
0 THEN PRINT "IT'S NOT HERE": 
RETURN 

Location 255 is used for carried 
objects so executing ISHERE with 
location 255 is useful to check if you 
are carrying something. 



GETWT 

SYNTAX: SYS SA+3,OBJNO 

This routine extracts the weight of 
the specified object and returns it in 
location 847. Imagine that the weight 
carried out by you is in variable CW. 
The following code checks to see if you 
can TAKE an object, assuming that 
the maximum voucancarrv is 30 units: 
1000 SYS SA+3.0J: IF PEEK<847)+ 
CW>30THEN PRINT"THAT TOO 
HEAVY": RETURN 



TAKE 

SYNTAX: SYS SA+6.0BJNO 

This routine changes the location 
of the object to 255 which then adds it 
to your carried possessions. First of all 
it calls ISHERE and checks if the 
object is present. If the object is absent 
it exits with location 846 set as for 
ISHERE. II' the object is present il 
takes it. Here are two examples, the 
second uses GETWT: 
1000 SYS SA+6.0J: IF PEEK(846)=0 
THEN PRINT "I CAN'T FIND IT": 
RETURN 

0101 PRINT "TAKEN": RETURN 
I000SYS SA.OJ: IF PEEK(846)=0 
THEN PRINT "I CAN'T FIND IT": 
RETURN 

1010 SYS SA+3.0J: IF PEEK(X47)+ 
CW>30 THEN PRINT "ITS TWO 
HEAVY": RETURN 
1020 SYS SA + 6.0J: PRINT 
"TAKEN": CW=CW+PEEK<847>: 
RETURN 

Since you want to check the weight 
of the object before taking it. ISI lERh 
and GETWT were called first. 



SETUP 

SYNTAX: SYS SA+2I.ffOBJ,NL, 
COLI.COL2.BORDER.SCREEN 

This routine sets up the working 
parameters: 

tfOBJ; number of objects 

NL: object name length 

COL I: normal text colour 

COL2: highlight colour for inventory 

BORDER: Border colour 

SCREEN: Screen colour 
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DROP 

SYNTAX: SYS SA+9.0BJNO 
LOCNO 

This is the reverse of TAKE in that 
it sets the objects location to the 
current location having first checked 
that you have the object. DROP also 
automatically clears the worn flag. 
Here is an example: 
1000 SYS SA + 9.0J,LO: IF 
PEEK(846i=0 THEN PRINT "YOU 
DON'T HAVE IT": RETURN 
1010 PRINT "DROPPED": 
RETURN 

If you are using weights, another 
example is: 

1000 SYS SA+9.0J: IF PEEK(846)=0 
THEN PRINT "YOU DON'T HAVE 
IT": RETURN 

1010 SYS SA+3.0J: CW=CW- 
PEEK(847): PRINT "DROPPED": 
RETURN 



LOOK 

SYNTAX; SYS SA+I2.LOCNO, 
PTYPE.ROW,(COL) 

This routine prints the object 
present in the specified location. As in 
the first part of this series, there are 
two possible print formats: 



WEAR 

SYNTAX: SYS SA+18,OBJNO 

This command sets the worn Hag 
of the specified object. This allows you 
to specify that an object must be worn. 
For example, you need to wear gloves 
to pick up a hot object. WEAR checks 
to ensure that you have the object: 

ISWEARING 

SYNTAX: SYS SA+27.0B.JNO 

This routine checks to see if you are 
wearing the specified object and 
returns a value in location 846. 
PEEK<846>=255 if you are not 
wearing it 

PEEK<846)=0 if you are wearing it 

The previous example can be 
extended to stop you trying to wear 
something already worn: 



PTYPE=0 prints the objects across 
the screen separated by commas. The 
printing starts at the specified row and 
a column value is not requred. 
PTYPE= 1 prints the visible objects a s 
a table With its top left corner at the 
specified row and column. This allows 
the use of windows. 



1000 SYS SA+IS.OJ: IF PEEK<846>= 
0 THE PRINT "YOU DON'T HAVE 
THAT": RETURN 
1010 PRINT "YOU ARE NOW 
WEARING IT": RETURN 



1000 SYS SA+27XXI: IF PEEK<846)= 

OTHENPRINP'YOU'RE ALREADY 

WEARING IT!": RETURN 

1010 SYS SA+IS.OJ: IF PEEK(846)= 

0 THEN PRINT "YOU DON'T 

HAVE THAT": RETURN 

1020 PRINT "YOU ARE NOW 

WEARING IT": RETURN 



INVENTORY 

SYNTAX: SYS SA + I5.PTYPE. 
ROW.COL 

This command prints the objects 
carried. The same format options as 
for LOOK are provided. Any objects 
which are being worn are shown in a 
different colour to highlight them. 



MOVEIT 

SYNTAX: SYS SA+24. OB.JNO 
LOCNO 

This routine moves the specified 
object io the specified location. This is 
a general form of TAKE and DROP 
and alllows more exotic actions such 
as summoning something or making 
objects appear and disappear. 

As usual I have included a simple 
editor. The only real comment to make 
is that you must use the setup option 
before starting work since it initialises 
the number of objects and name 
length. The view option allows you to 
step through the object table. You 
press any key to step onto the next 
object. I have not included an option 
to allow you to change the record size 
halfwa> through creating your data 
base. Again work out everything on 
paper before starting typing. 

To help your use of the routines, I 
have included a trivial demo. This 
assumes that you arc at location one so 
ensure that you set up the objects at 
that location. The routine assumes 
four objects with a name length of 16. 
This routine is quite primitive and you 
will have to remember the numbers of 
the objects. 




See listing on page 89 
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Diskit 8 



Improve 
Diskit 



li has become obvious from 
correspondence thai readers who have 
used programs presented earlier in 
this series, have discovered thai the 
effects of the Turbo Cruncher were not 
as efficient as they should have been. 
The reason for this is that the clear 
memory not used by ihe program 
being crunched, is not empty. 

Memory Clear, presented here, fills 
the C64s memory between S0800 
and .SFFFF with $00. i.e. the program 
clears the computers RAM. 

This will ensure maximum 
efficiency in comprcsing code 10 
produce a compacted file when turbo 
crunched in conjunction with the 
Turbo Cruncher program published in 
Your Commodore March 1987. 



the efficiency of earlier programs in the 
series with this memory clear routine. 
By Les Allan 



The program is simple to use and if 
you follow the instructions below you 
should have no problems crunching 
programs. 

1) Load in MEM ALL CLEAR and 
RUN to fill memory between $0801 
and SFFFF with $00. 

2) Load in the program that you wish 
to crunch. 

3) Reset the computer if required. 

4) LOAD "MEM1'\8,I (Mav 1987). 

5) LOAD "MEM2".8.1. 

6) Type in the SYS call required, 
e.g. 10 SYS 2061 (if that's the start 
address). 

7) SYS 828 to save memory. 

8) The 2 files BOOT and MAIN are 
now a complete working copy of the 

See listing on page 77 



program which can then be 
crunched. 
9) If when the MAIN part is crunched 
it crunches to less than 154 blocks 
then the KERN part can be 
appended to this using the ONE 
PART MAKER routine. 

Getting it all in 

The program is presented here as a 
Basic Loader. This should be typed in 
using the Syntax Checker that can be 
found on the Listings page. When 
RUN this program stores the relevant 
machine code at a temporary address 
of $80000 and when prompted 
relocates the working program to Basic 
$080 1 and SA VEs the proi>ram to disk. 



ITS HIGH TIME 

FOR 




PROMISE-SPELL CHECKING PA CKA GE AMIGA £39 95 

GIZMOZ- TOP U.S. PRODUCTIVITY PACKAGE AMIGA £49.95 
OMEGA FILE - PROFESSIONAL DA TABASE AMIGA £49. 95 
MIDI INTERFACE AMIGA £39.95 



HI-TEC products are distributed by Robtek Ltd, 
Unit 4, Isleworth Business Complex, St. John's Road, Isleworth 
Middx. TW7 6NL. 01-847 4457 
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Moebius 
and the Orb 
of Celestial 

Harmony 

Honourable Origin's inscrutable approach 
to the chopping and churning w orld of 
oriental quests. 

By Norman Doyle 



clouded by the siorms. droughts and earthquakes which now 
shatter the celestial serenity which was once the island's 
preserve. 

The renting of the bamboo curtain separating the realms 
of Earth, Water. Air and Fire has diminished the 
Windwalker's power and new. evil forces now rule the 
domain. Evil monks, assassins and palace guards have 
breezed in on the wind of change, whipped into a galling gale 
by the self-styled Warlord of the East Wind. 

Moebius. immobilised by the missing Orb. must mobilise 
a martial arts master to march against the malevolent 
masses. A novice must be found who can cross the 
boundaries between the realms, wreaking havoc on the 
forces which bind the Orb to its new owner. Any takers? 

For the first time, the rather crude but clever graphics 
which have been a hallmark of Origin games, such as the 
Ultima series, have been overhauled and a new level of 
realism has been injected. I admit thai by current martial art 
standards the game lacks the fluidity of Fist and 
International Karate, but it is the strategy ol the battle which 
is the central core of this conflict. 

As a novice, the player must be trained to overcome the 
assassins and guards who police ihe new state. Only mastery 
in the three skills of unarmed combat, sword fighting and 



< >i ii 1. 1 . i m i ■ ■ 

r-. '• 



Wu 

^ruggie v 
Vurk o' Madore 

Level : I Fypr : 



with your 



Heat wa< 
adversary' 



H. 



ere, on the once-prosperous, oriental paradise of 
Khantun. the platina of peace and prosperity of the 
Mandarins has been peeled away with the disappearance of 
the Orb of Celestial Harmony. The mind of Moebius. the 
Master of Magic, also known as Windwalker. has been 
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divination will allow the character creation menu to include 
an entry to allow you to venture forth. 

As a lowly acolyte of unproven prowess and no 
experience, you start the adventure wilh 100 sips of water. 
100 bites of food, a low degree of mindpower and minimal 
strength. Alone in the realm of Earth, you must fight to free 
the monks of Moebius and restore them to theirduties in the 
shrine. 

Movement is difficult, as much of the land is overgrown 
and you must cut a swath with your sword to enable your 
character's icon to wander across the symbolic map. As you 
journey, the palace guards will be called to the attack and 
assassins will attempt to creep up on you. Creatures of the 
forest will also molest you but they may also yield some 
precious ingredients for the spells which are essential to 
victory. 

Other wanderers inhabit the forest. These are the villaaers 
who will help a friendly traveller with gifts of food or advice. 
Approaching a peasant with your sword drawn will inhibit 
any communication and thereby damage your Karma. 
Karma is measured by a split in a Zen symbol which is on 



the screen all the time and gives a measure of your purity. 
Similarly, dexterity is measured by a pair of wings which 
gradually migrate towards each side of the screen as you are 
preyed upon by a thieving guard, attacked by an animal, 
struck by an assassin's shuriken or singed by an evil monk's 
fireball. 

Your progress is followed by Moebius' omnipotent gaze, 
and when he is pleased with your progress, he will increase 
your body and mind potential while returning your karma 
and dexterity to full unity. When exceptionally pleased, he 
may even bestow a spell upon you. 

Using brain, brawn and magic, the novice grows in 
manhood as he progresses from realm to realm until the 
final, firey fury of the confrontation with the Warlord 
himself. 

My one major complaint is the heavy use of the keyboard 
for issuing the single keypress commands. This is fine for 
opening doors and picking things up, but it does inhibit the 
light scenes when you're groping for the correct key to kick, 
punch or whatever. The fight scenes could be generally 
better but they're challenging enough to inhibit your 
progress which is their main purpose. At times the number of 
assailants make this feel like Gauntlet - the daunting battle 
against innumerable foes. 

Moebius is a cut above most strategy games, allowing a 
degree of interaction which is, graphically superior to 
anything I've seen from the Stales. Perhaps the interchange 
of personnel and ideas which is currently taking place 
between Origin and Microprose's British and American 
units will benefit the arcade elements in strategy games. 
Certainly a touch of Exploding Fist would have given this 
unassailable universal appeal instead of just being a great 
strategy game. 

Touchline: 

Title: Moebius and the Orb of Celestial Harmony. Supplier: 
Origin Systems. Microprose. 2 Market Place, Tetbury. 
(iloucestershire GL8 SDA. Tel: 0666 54326. Machine: C64. 
Price: £19.95 (disk). Originality: 7/10. Graphics: 7/10 
Payability: 9/10. Value: 9/10. W 
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A Change of Face 

If MPS803 printouts are not the prettiest sight you've 
seen, Printkit IV could be the cosmetic surgery you've 

been looking for. 



y 

M. our MPS803 printer may be fine for 
dumping off listings and the like but it's 
not going to impress your bunk manager 
too much when you use it to write that 
grovelling letter to him. To be perfectly 
blunt, the typeface looks awful. The lack 
of true descenders renders the print 
difficult to read; you keep wondering why 
a number *9* seems to be printed every 
time there ought to be a letter *g\ 

Enter Printkit IV from Avon Printer 
Technology. Not only does it give you 
proper descenders, but also other features 
such as italic and bold typefaces and 
underlining. 

The package contains two integrated 
circuits and two sockets, a resistor, a 
switch and some solder mop. As the name 
suggests, it comes in kit form and you 
must fit it for yourself. To do this you'll 
need to strip the printer down, remove the 
printed circuit board, fit the components 
and then reassemble everything. Tools 
required include a small soldering iron, 
wire cutters and a couple of screwdrivers. 
The whole job could take you a couple 
of hours. 

The instructions included are clear 
and fully explanatory. Your attention is 
drawn to the tricky parts and hints and 
lips are given to help you. The 
accompanying diagrams are similarly 
clear and large. 

( 'niiwwdoiv Font 



By Gordon Hamlett 



If you don't feel happy about 
approaching this job yourself, then you 
can send your printer to APT who will 
do the conversion for you tor a fee of £15. 

Once the kit is fitted, you are ready 
to try out the new facilities available to 
you. Naturally, the descenders are always 
there and need no special commands but 
underlining, italics and boldface are 
switched on and off via special control 
codes. When using word processors, 
you'll find that most of them will allow 
you to use these commands in your text. 
Included amongst these are the three most 
popular word processors for the C64. 
Superscript, Easyscripl and Tasword 64. 

Bold is effected by a double strike 
which does not slow the printer down in 
any way. The descenders make the most 
obvious difference to your text and, if you 
intend to send out a lot of letters, the 
package is worth having for this alone. 

The italic script looks a bit 
disjointed, as if someone has just taken 
the ordinary text and stretched it across. 
Because of this, it is probably best only 
to print the odd word in italics for 
emphasis rather than italicising whole 
chunks of text at a time. It docs give you 
five new characters though: left and right 
curly brackets, a divide sign, a copyright 
symbol and a right pointing arrow. 

Bold can also be used for word 



emphasis but would be especially useful 
for those extra special letters to your bank 
manager though the extra wear put on 
your printer ribbon by using this mode 
should be borne in mind. 
Underlining is best used in conjunction 
with capital letters. Otherwise, it tends to 
run into the descenders that have been so 
lovingly created. Spaces can be 
underlined, or not. depending on the 
effect you wish to create. 

The switch allows the original printer 
mode to be restored at any time, although 
the manufacturers are convinced that you 
will not want to do this very often except 
as a reminder of the bad old days! 

These four additional features will 
certainly give your MPS803 a new lease 
of life, and at £30. has got to be a lot 
cheaper than buying a new printer! 



Touch line: 



Product: Printkit IK Supplier: Avon 
Printer Techno fogy, Swindon House. 4 
Howard Road, Southvif/c, Bristol B5J 
IQH. Tel: (0272) 667167. Price: CM 
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GEOS INSIDE and OUT 

A thorough guide Dec' lo effectively using GEOS. whether you die a beginner or ■ 
MuonM user Toptcs covered include geoWntc & geoPamt applications, a utility lo 
convert your own programs io OEOS lorroal and create custom icons, casting custom 
details of QEOS Mi-tormnt adigilai display clock and a single step simulator to 
display GEOS memory locations and registers. 293 pagas 
„ . Pnce £12.95 

■ ipiinn.i tS.OG 



GEOS TRICKS & TIPS 

A collection of helpful hints and techniques with easy to understand explanations Reused 
to cover GEOS t J include* a font editor to create up to 64 point IBM and a machine 
language monitor 366 pages 

Pnce £11 M Ofjtonai dnkette £5.00 

SPECIAL OFFER: Both GEOS book! lo- £22.50 



CADPAK 

ForC-64 or C-128 



Enhanced Version! 




CADPAK ii a lupe'D tool tor computer aided design and drawing Using eitner tna 
keyooara or optional lignipen youdraw directly on the screen lo create and edit ptctures 
drawings, layouts and renderings— gtcckly. accurately, creatively Tim newovnensiorifny 
lealo'v allows e>act scaled output on your designs Choose from ma- menu options and 
draw on mo screen a: an e>acl location using our AccuPomf cursor positioning Using the 
1*1) Dnaltica screens, you can draw LINES BOXes. 
CIRClEs. ELLIPSE Sa, Mi with solid co<ors or 
paitem« rroehana DRAW. COPY sections ol tna 
screen. ZOOM-.n to do detailed design on a small 
section ot the screen, win CAOPAKs improved 
oOvsci editor, you can define and save I mm lute 
electronic Circuitry or machinery as intricate as the 
screen resolution permits Hard copy to mosl del 
matin printers Perfect lor ail your design needs 

ForC-64 £24.95 

Par G-YatHM 



Cedp»» -64 - Mouse OUI 
Canpa»-i2B i Mouse £69.94 
Upgraac D «k £5.00 
Upgrade OiS« - Moiise £39.05 
{fleiurn Original Oil*) 




LIQMTPEN (slandwd version) £U,95 
|t90t or green screen momion £14 95 
Commodore 1 35 1 Mouse £39.95 



The C64 version works at 320k200 resolution with hardcopy lo most printers in s.ngleor 
double we Tna CI2B >emiOn works ai 640>3fi0 resolution, though an BOcolumnmonito' 
is not required Hardcopy various sizes 

NEW - Both CADPAK packages now include versions to work with the Commodore I35t 
mouse | no other mouse is suitable] 

ADAMSOFT. (Oept VC). 18 Norwich Avenue. Rochdale, Lanca. OL11 SJZ. 
trzm ACCESS orders accepted by telephone 0706-524304. 



THE MPS803 





AT LAST 

Top quality performance 

from your MPS803 Printer. Simply fit 'PRINTKIT IV 
directly to your MPS803 printer and you will get: 

•TRUE DESCENDERS *R BOLD OPTION 

*UHDEPI TNTHfi +ITALZCS 

And up to 50% speed increase! 

All facilities are fully CBM compatible '"PRINTKIT IV is 

a very impressive upgrade kit" CCI Nov '87. 

"Will give yourMPS803anewlease of life" YC Dec '87. 

Send just £30.00 to join the hundreds of satisfied 

customers. 

NEW! Coming soon... Connect yourMPS803 DIRECTLY 
toyour Amiga, ST, PC,... Full information when you order 
'PRINTKIT IV. 

We also supply: Ribbons, Tractor feeds, Serial leads etc. 
Call for details. 



Avon Printer Technology 



SWINDON HOUSE; 4 HOWARD ROAD; SOUTHVILLE- 
BRISTOL BS3 1QH. Telephone BRISTOL (0272) 667167 

(enquiries frooirwn^UKDtitnbutofSwH«)me 

7 days delivery. FuH guarantee. 



STORT SOFT 

MAIL ORDER SPECIALISTS 

INCREDIBLE LOW PRICES! 

ALL DISKS CARRY A NO QUIBBLE REPLACEMENT GUARANTEE ARE 
CERTIFIED 100% ERROR FREE & COME WITH LABELS. 5 1/4" ALSO 
HAVE SLEEVES & WRITE PROTECTS. FLIP SIDED DISKS HAVE 2 INDEX 
HOLES AND 2 NOTCHES. 



SPECIAL OFFER! 

25 SS 48TPI 5.25'' DISKS & 100 CAP LOCKING DISK BOX 
50 SS 4BTPI 5.25" DISKS 4 100 CAP LOCKING DISK BOX 
100 SS 4&TPI 5.25" DISKS S. 100 CAP LOCKING DISK BOX 
25 DS 48TPI 5.25" DISKS & 100 CAP LOCKING DISK BOX 
50 DS 48TP1 5.25" DISKS & 100 CAP LOCKING DISK BOX 
100 DS 48TPI 5.25" DISKS & 100 CAP LOCKING DISK BOX 



5 1/4" DISKS FROM AS LITTLE AS 33 PENCE 



BLANK 5 1/4 DISKS 



UNBRANDEO 



SS4S TPl 
OS43 TPl 
DS36 TPl 

DS9S TPl FLIP SIDE 



|- DISK NOTCHEH FREE WITH EACH 100 DISKS PURCHASED 
TRIAL 10 25 SO 100 10 in a 
plastic lib. case 

4.50 9.00 17.00 33.00 $.50 

5.50 11.00 19.00 35.00 6.30 

6.50 1300 21.00 37.00 7.50 

7.00 14.00 22.00 38.00 0.00 



MIMIC FLIP SIDED DS96 TPl 
MIMIC HIGH DENSITY 1.6meg 

COLOURED - ml* & match oi a 
SS48 TPl 
DS4B TPl 
DS96 TPl 



0.95 20.00 38.00 70.00 9.95 
23.00 52.00 100.00 180.00 24.00 



In ono colour 



6.50 
7.50 
8.00 



12.00 
14.00 
16.00 



SPECIAL PRICE II DVSAN OS48TPI BOX OF 10 ONLV 



22.00 4200 7.50 
24.00 44.00 B.50 
28.00 50*) 9.00 

10.95 



LOCKING DISK BOXES 



5 1/4 HOLDS 50 ■ 
31/2' HOLDS 40 • 



7.95 
7.95 



5 1/4 HOLDS 100 - 

60/90 (HOLDS 60 3 or 90 3 1/2 ) 



9.95 
9.95 



1 MEG AMIGA CUMANA DRIVES £129.00 

Juti mtite for mote information. Cheque* etc payeon taSTORTSOFT r (weinarion a f orders 
add IO*c ana remit in poundl SierHop oy Oan* flra'l or /nH. money order Write lot Quolemeny 

other currency i. 

ACCESS/MASTERCARD/EUROCARD/VISA accepted 
CREDIT CARD ORDER LINE ■ 0279 89509 24 HOURS A DAY. 7 DAYS A WEEK 
V.A.T. ft PftP INC. NO HIDDEN EXTRAS ■ WHAT YOU SEE IS WHAT YOU PAY 

18 CROWN CLOSE, SHEERING, BISHOP'S STORTFORD, 
HERTS. CM22 7NX 



A Powerful Wordprocessor 

for the Commodore 128® 



fid j * 4 




Selected 
, for the 1987 
CES Software 
Showcase 
Award. 



From the author of Fontmaster II comes Fontznaster 128 

an enhanced version for the Commodore 128. This 
powerful word processor with its many different print 
styles (fonts), turns your dot matrix printer into a more 
effectual tool. Term papers, newsletters, and foreign 
languages are just a few of its many applications. 



0 M 



* Program disk with no protection - uses hardware key 

* Supplement disk includes foreign language fonts 

* 56 Fonts ready to use 

* Font editor/creator included 

* On screen Font preview 

* 80 column only 149.95 |BC| 

* Supports more than 110 printers 

* Includes a 102,000 word Spell Checker 

* Insert fraphlca u 1th In cent or euperlapoao text over thea ft 
turn thl* packet* Into • Demk Top Publl*her. Clip-Art dlalc 
with HO l*ee** IB 

* Send large SAE for «or» detail* of our 1&S software and the 
20/40 aefebytc hard disk giving access for up to four 1C«'= 
on one hard drive. 

* Sole UK laportera and distributor* ar*> BYTES ft PIECES. 

9? Cecil Street, Lythan. Lancashire, FYS BKN . 



Qx commodore 




from £455! 

■ Amiga A 300 Mtt! 512KHAM, £455 
BOOK 35' disk, mouse, software 

■ Amiga A500 TV As abovo, £475 

plus A521 TV/composite moOuiator 

■ Amiga ASOOM wilh A10D1 £735 
tagh-ias colour monitor 

Price* include 15% VAT, a FREE copy oi 
DaLuie Paint, FREE delivery lo your door, 
on* year warranty. Over night delivery tt 2 



■ Amiga A300O with I 3MB RAM .f 1 09 9 

aaQK J 5* disk, mouse, software 

■ Amiga AIOO0M As above. £1349 

plus Aiooi la-res colour mnnltoi 

BJ Amiga A200O XTM As above. £1649 
plus PC XT bridge board S loppy 

■ Amiga A?0OO RDM As A2000M £1949 
plus 20MB AmgaOoi hard dish 

1 YEAR ON-SITE MAINTENANCE WITH 
EVERY A2000 AMIGA SYSTEM.- PLUS 

FREE GOLDEN KEY CARD! 

■lay al over 700 lop hotels as often as 
you Ilka for a year, and tor aach night's 
slay, |ust pay tor breakfast and dinner! 




PERIPHERALS 



AMIGA 



10 disk* in plastic library case £20 

AS21 TV'oomposfle modulator £25 

AMI plug-in RAM/clock fil?K £105 

AI0S1 high -res colour mentor £299 

IA1010 3 V luminal disk drive £225 

I Cumana 3 5* paternal dak dirvo £129 

I A3010 l V tnloinal disk drive £199 



A JOSS PC-XT bndge board £ 5 2 9 
vnin 5 25" internal disk dnve 

A23B6 PC-AT bndqo board £749 
with b Z"y xiloinal disk dirve 

A3030PC TOMB tnloinal nard £529 
disk wih MS DOS controller 

! A2O90 20MB mlrtrnal hard £629 
disk with Amga DOS contiollnr 

I A2052 2MB internal RAM £399 
I Precision pnnlor 4B0cpB. NLQ £399 

I Canon PJ1080A colour printer £499 
I Xaroi 4020 colour p< inlet £1005 
I HP Laser Jel laser pnmei £ 1 9 9 5 




CREATIVITY 



AMIGA 



I VliaWrtle DeskTop 
I Word Perfect 
I PtoWrll* 
I Page Seller 
I Scribble II 



£89 as 

2S9 

109 » 
94 «> 
79« 



I City Desk £139 a* 

I Do Luxe Music 59 - 

[Dm Lu*e Paint II 59 

| OlglPalnl 54 « 

I De Luie Video II 89»* 

I Aegis VldaoScape 1 24« 

I Aegis Animator 9-1 -' 

I DlglPIc lost tiomn grabber 299 

I Aegla Oiaw Plus 169a* 

| Dynamic CAD 2.3 359 ei 




PRODUCTIVITY 

AMIGA 



SuperBase Personal 

Acquisition 
: Analyse II 
I Logtetli 



£79« 
249*s 
119. 
99 « 



■ VIP Professlanal 

■ MailPlan Plus 

■ SAM Basic 

■ True Basic 

■ True Basic libraries 

■ MCC Assembler 

■ MCC Pascal 

■ Utile* C 11 

■ A/C Fortran 



£109-. 
129. ss 
89 « 
64u 
39" 
59 «* 
69*i 
144« 
229 a) 



■ Commodore I2BD cornpulot £399 

■ Commodore 12B computet £225 

■ Corrmodaio 1S71 dsk drrvfl £259 



■ Citizen 130O 120cpfl, ffT, NLO £199 

■ 1B01C 40>IK> colour monitor £275 

■ 1S41C dish drive £169 

■ 64C conipuliH £ 1 39 

■ 64C Connoisseur Colloclion £ 1 95 

Prices Include 15% VAT. FREE delivery 
lo your door, and one year warranty. 
Pleas* add £12 for overnight delivery. 



| UNBEATABLE SUPERBASE ft SUPERSCRIPT BARGA 



INS! 



■ SuperBase 12B tpit. £44 us 

■ Superscript 13B yfc 44 as 

■ SuperBase: The Book 1 1 »s 



SuperBase 64 & Plus.'4 £34.91 
So per Script 64 tjjk 34.' 

I SuperBase Starter 64 jarf* 19»-- 



l MORE SOFTWARE BARGAINS FOR YOUH C64 AND I2 HI | 



i VliaWrlte Classic 12B y.-- 
I VlraWrlle 64 (disk) ^grJt 



£79 Bt 

39.M 

VlMWrlt* 64 (cartrtdgn) yA\ 69 U 
VtiaSWllB B9M 
VlraSlar 64 XLB ytf* 79 s* 

VdaStar 64 XL4 ■ 69 n 



GEOS 64 VU 
SwIftCalc 131 
Oala Manager I2S 
WordWrller 12> 
Pocket Planner 128 
I MlcroClerk 128 



'.S - 

5BT95 

t>rfs 



£39 si 
54 » 
54 h 
54 n 
44« 
94 



COMMODORE 128 and 64... PROGRAMMER S CORNER 



PetSpeed 128 
Oiford Pascal 128 
Super C 128 
Cobol 138 
Hack Pack 12B 
C13B Tricks and Tip* 
I7SO Expansion RAM 
RamDos 128 
BratnBo« IEEE 
Super Disk Doc 
Simon's Basic 64 
Oiford Basic 64 
Oiford Pascal 64 
Super C 64 
Cobol 64 



22 



Ihe Basic 12B compJor. horn O'toid Systen-o 
The comptnlo J i W Pascal lor your 128 
Complete C language. MM) extensions 
The COmplBie COBOL package Irom Abacus 
Aa-m-one Programmor's Teo*il & Ram-Oisk 
Essential reading lor (he 12& progiammer 
5lZKevpansion RAM canridge ten the 12B 
Lightning (asl Ram-Disk lor S12K eipanskin RAM 
Supports IEEE/PET disks ft porters 0*c 028 ft 6*) 
Roscueyour tost disk data' (1MW70/7I. 4040) \e4\ 
pTOO/ammnr s carlridoo Horn CommoOoro -J^n 
All-in-one Basic compBer. looikn. compiossor m 
The complete J ft W Pascal lor your 04 
Complete C language, with aniensiotts j'- 
The comptnte COBOL peckage tiom Abacus >»r4i 



£19 « 
19 »i 
42 ss 
32 s* 
17»» 
9*% 
149 M 
32 ds 
79.s» 
14.05 
29 « 

19.15 

HLM 
4la> 
32*i 



■ ■■ IF YOU WANT IT TOMORROW-. CALL U5 TODAY) ON 0t-S46-72S6 ■■■ I 
flolad caBers are welcoma al ou' Guildford showrooms, please telephone 0463-Kmr^ | 


Piices are POST FREE ft include VAT. 4 
Order by phone *nn your credit card, 
or send cheque^POw your tiedilcaid 1 
numbor Official eiders welcome We ' 
despatch same day by FIRST CLASS i 
pott Please a/low S days lor deTvery 
of hardware otders Puce* ouoled bib j 
Subiocl 10 availability. Bit. as* ( 




Calm 

□□rtkiiare 



LAKESIDE HOUSE. KINGSTON HILL SURREY. KT2 7QT. TEL 01-546-7356 



READERS SERVICEHC1|3 

Software 
for Sale 

If you think that one of our programs looks very interesting, but you can't 
afford the time to type it in then our software service will help you out. 



jft's three o'clock in the morning. You sit al the computer 
Keyboard having just finished a marathon typing session 
entering one of the superb programs from Your Commodore. 
Your lingers reach for the keyboard and press the letters R. 
Uand N. You press RETURN.sii back and nothing happens. 

Everyone has probably faced this problem. When it does 
happen it's a matter of spending hours searching through 
the program lor any typing mistakes. No matter how long 
you look or how many people help you. you can usually 
guarantee that at least one Utile bugslips through unnoticed. 

The Your Commodore Software Service makes available 
all of the programs from each issue on both cassette and disk 
at a price of £6.00 for disk and l'4.00 for cassette. None of the 
documentation for the programs is supplied with the 
software since it is all available in the relevant magazine. 
Should you not have the magazine then back issues are 
available from the following address: 

INFONET LTD. 5 River Park Estate. Berkhamsicd. Herts 

HP4 I ML. 

TEL: (0447) 76661 

Please contact this address for prices and availability. 

The Disk 

Programs on the disk will also be supplied as totally working 
versions, i.e. when possible we will not use Basic Loaders 
thus making use of the programs much easier. 
Unfortunately at the moment we cannot duplicate C 16 and 
Plus/4 cassettes. However programs for these machines will 
be available on the disk. 

What programs are available? 

At the top of each article you will find a strap containing 
the article type. C64 Program etc. So that you can see w hich 
programs are av ailable on which formal, you will also find a 
couple of symbols alter this strap. The symbols have the 
following meaning: 




Tliis symbol means that the program is available on cassette. 




These programs are available on disk. 



Please Note 

Since the programs supplied on cassette are total working 
versions of the program, we do not put disk-only programs 
on tape. There is no sense in placing a program that expects 
to be reading from disk on to tape. 

JULY 

UTILITY COMMANDS — This provides many vital 
commands missing from Basic 7.0 on the 128. 
PLUS/4 AND C/64 CRUNCHER — Speed up your 
programs with these handv utilities. 

PROGRAMMABLE FUNCTION KEYS — A utility to 
make more use of the function keys on the C64. 
DISKIT 5 — A handy routine to convert memory to data 
statements on the C64. (Disk only.) 

ARCADE ACTION — Get those sprites with these handy 
arcade routines on the C64. 

cross reference — This program helps you sort out 

your variables on the C64. 

SUICIDE RUN — A fast and stimulating game for the C64. 

ORDER CODE 

DISK YDJULY87 £6.00 

TAPE YCJULY87 £4.00 



AUGUST 

DISKIT 6 — Fast file copier Tor disk users. (C64 - disk only. ) 
SCREEN MAKER — Design text and low-res graphic 
screens with ease. (C64j. 

SCREEN DUMP — A Hi-Res screen dump for the C64 plus 
MPSKOI printer. 

NUMBER BASE TUTOR — A C64 educational program 
helping with tuition of number bases other than 10. 
CI6 SPRI TE — Does your CI6 lack something? Then add 
sprites with this useful utility. ForCI6and Plus/4. available 
on disk only. 

WINDOWS — A text window system for the C64. 

ORDER CODE 
DISK YDAUG87 £6.00 
TAPE YCAUG87 £4.00 
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CCPTCMPrD-IOQT 

DISKIT 7 — Copy your disk programmes to turbo tape with 
case. (CM - disk only.) 

PLUS/4 ANIMATED GRAPHICS — High-Res Animation 
for Plus/4 owners. (Disk only.) 

SMOOTH VERTICAL SCROLLER — Professional titling 
for video owners. (C64> 

ORDER CODE 
DISK YDSEP87 £6.00 
TAPE YCSEP87 £4.00 

SPEEDY ASSEMBLER 

Your Commodore 's own assembler as used in our Byting 
into the 6510 series, complete with manual. 

YSPASSD £9.95. 

YSPASSC £9.95. 

OCTOBER ' ****** 

Shadow Boxing — Use the memory under the C64's ROMS 
for storage. 

Adventure Kit — The first module of our DIY Adventure 

system. (C64) 

Sprite Grabber — Grab Sprites from other programs and 
save them for later use. (C64) 
Hide it — Program protection for C64 owners. 

! " ORDE r" FORM- 7lE As! COMpTe"tF In"oC k" CAPITALS 



NAME 


QTY 


TAPE/DISK 


ORDER CODE 


PRICE 
































DECEMBER 87 




TAPE (£4.00) 


YC DEC 87 




DECEMBER 87 




DISK (£6.00) 


YD DEC 87 




OVERSEAS POST£1 










TOTAL 





j NAME 

ADDRESS 

I 

jj POSTCODE 

I enclose a cheque/postal order for £ made payable to ARGUS SPECIALIST 

PUBLICATIONS LTD. 

l All orders should be sent to: YOUR COMMODORE, READERS SERVICES, ARGUS SPECIALIST 
| PUBLICATIONS, 9 HALL ROAD. HEMEL HEMPSTEAD, HERTS HP2 7BH. 
j Please allow 28 days for delivery. 



ORDER CODE 
DISK YDOCT87 £6.00 
TAPE YCOCT87 £4.00 

NOVEMBER 1987 

ADVENTURE KIT II — The second part of our C64 
adventure writing kit. 

KERNAL II — A pull-down menu system giving easy file 
handling. (C64) 

FUNCTION KEY TEMPLATE — Use the Commodore 
plotter to produce templates on vour C64. 
PLUS/4 AND CI6 DISK MENU — Access your disk files 
with ease (disk only). 

128 PREFERENCES — Predefine your computer's default 
characteristics. 

NUMBER TUMBLE — A frustrating game for the C64. 

ORDER CODE 
DISK YDNOV87£6.00 
TAPE YCNOV87 £4.00 



Cassettes or disks are available from March I9H6. Please 
ring the editorial office (01-437 0626) for details of these. 
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Tony 

Crowther's 
best game 
to date" 

Zzap 64 



I 



£9.95 



Mirrorsoft Limited 
Athene House. 66-73 
Shoe Lane. London 
EC4P4AB 

Telephone: 01-377 4645 



Disk 
Manager 

Get organised with this handy disk utility program. 

By M.E. Catley 



C64 UTILITY 




DISK MANAGER M CATLEV 



COPV FILE 
SAVE FILE 
RENAME FILE 
FORMAT DISK 
RESET DRIVE 
EXIT UTILITY 
KILL UTILITY 
SCRATCH FILE 
VALIDATE DISK 
LOAD FILE <,8> 
LOAD FILE < ji 8.i) 
INITIALISE DISK 



SELECT CHOICE: 



imagine this - a C64 where disk 
commands arc just one or two key 
presses away. A Copy or Rename 
command that prompts you to input 
the old and new filenames, instead of 
having to remember "is it 
oldfi!e=newfile or newfile=oldfilc'\ 
And a Format command that requests 
a disk name and i.d. And the ability to 
load a machine code program at any 
time without having to NEW the 
computer afterwards. A Scratch 
command that tells you automatically 
how many files have been scratched. 
The ability to validate or initialise the 
drive with automatic confirmation of 
success or failure. No, not the CBM 

DOS 5.1. program supplied by 
Commodore which only goes part way 

to providing these facilities. 

Disk manager is a disk utility 

program that gives you all these 

facilities although there are a few 
drawbacks. Commands which are 
available include: 

C - Copy File 

t - Save File 

R - Rename File 

F - Format Drive 
@- Reset Drive 

X- Exit Utility 

K - Kill Utility 

S - Scratch File 

V - Validate Disk 

L - Load File (.8) 

— Load File (.8.!) 

I - Initialise Disk 

When the code is in memory, it is 

activated by *SYS 53000*. This will not 

appear to do much, but will divert the 

IRQ call that occurs 60 times per 



second to point to our routine. The 
only effect this has is to check the 
keyboard for the CBM and control 
keys being pressed simultaneously. If 
they are not pressed, then the standard 
IRQ routine is carried out. and the 
computer functions normally. 

If the CBM/control keys are 
pressed together, any program 
running is temporarily suspended, (it 
will resume after exiting the utility), 
the screen and colour memory are 
stored under the BASIC ROM. and a 
window is opened on the screen 
displaying the commands available 
with an input/outul line for 
commands, responses and errors. Now 
all the commands arc just one key 
press away, 



Follow the on-screen prompts and 
disk house-keeping becomes simplicity 
itself. X will exit the utility, while K 
will restore the IRQ vectors back to 
normal, in which case another "SYY 
53000* call will be required to re- 
activate the facility. 

True to life, you get nothing for 
nothing, and there are a few minor 
restrictions. Your program must not 
use the memory under the BASIC 
ROM. or from 51580 to 53247 
($C97C-$CFFF) and the utility 
assumes the normal character set at 
the screen default location of 1024 
($0400). The utility will not work with 
anv uraphic screen or mode. 

See listing on page 78 



YOUR COMMODORE december 1987 
34 



COME HOME TO A 
REAL LIVE WIRE 




Inject the power of a mainframe into your micro. 
MICRONET is the only product that pro\ides 
you with:— 

• Real-time interactive chatlincs 

• Free and discounted telesoftwarc 

• M.U.Gs inc the UK? most popular SHADES™ 

• Daily computer news and reviews 

• Free PRESTEL'" electronic mail 

• Teleshopping - holidays, hotels etc. 

• 70.000 PRESTEL users 56,000 Telecom 
Gold users 

• National and International Telex 

• Technical Support and Help Desk 

PLUS: Access to PRESTEL and Telecom Gold, 
and there's much more - all for one low cost 
subscription. Modem owners call us now for an 
on-line demonstration. 



With your first annual subscription 
MICRONET will give you a free modem. 
Complete and return the coupon for your 
MICRONET brochure. 

_MIQRONET 

MICRONET, Durrani House. S Herbal Hill, 
London. EC1R 5EJ. Telephone 01-278 3143 
Please send me a free M ICRONET brochure, 



Name. 



Add irss. 




PROGRAMMING 



Relocator 



Reload programs anywhere in memory with this 
handy utility program. 

By William Sellers 



he relocator is a utility for the 
serious programmer. It allows 
programs which have been saved 
to cassette or disk to be set to reload at 
any required memory location. 
Consequently, it allows a program to 
be loaded to any location - ignoring 
the start address given on the header. 
Saving to tape can also be protected so 
that the program cannot be reloaded 
at a different start address by ordinary 
Commodore routines, although 
obviously this utility copes with 
this sort of protection. All information 
on the tape header is displayed and the 
presence of a data file or a protected 
file is indicated. 

The program is designed to help in 
the creating of auto-start programs 
that need to reload in the area of 
memory below $0400 and for saving 
data that needs to reload underneath 
the KERNAL ROM at $E000 to 
$FFFF. These are fairly easy to do for 
disk users since program files can be 
writte.n byte by byte as data fields but 
are not possible for cassette users with 
standard save routines. 

How it works 

The program works by calling the 
individual ROM routines involved in 
saving or loading a program instead of 
simply using the standard KERNAL 
routines. This allows custom headers 
to be created so that the reload address 
is under independent control. It also 
enables headers read in to be ignored 
completely so that new start addresses 
can be set. 




Getting it in 

The program is presented as a 
BASIC program which POKEs the 
machine code program into memory 
from.S080l to $I06C and then saves 
this chunk of memory to disk (tape 
users need to make the changes 
indicated in the listing) as the program 
•RELOCATOR". It is this second 
program that is used. For the BASIC 
program to run, it is necesary to 
initially move up the start of BASIC, 
so that there is room for the new 
program. This needs to be done before 
the program is typed in and is achieved 
by typing: 

'POKE43.l;POKE44.32: POKE8I92. 
0:NEW 

There is an error check on each 
line, but care should be taken to save a 
copv of the BASIC program before it 
is RUN. 



The Program 

Reset the computer and load 
•RELOCATOR' from tape or disk. 
When it has loaded, simply type 
'RUN'. The program is completely 
menu-driven and is very simple to use. 
The available options are: tape load; 
protected tape save; unprotected tape 
save; disk load and disk save. For the 
Load options you are prompted for a 
name (optional for tape) and a start 
address in hexadecimal. After the 
load, the old and new start and end 
addresses are displayed. For the Save 
options you are prompted for the start 
and end addresses of the area of 
memory that you require to save and 
the start address (hat you wish it to 
reload at. Again, after saving, the old 
and new start and end addresses are 
displayed. 

See listing on page 85 
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Devastating Games. Difficult Games. 
Devious Games. Death Defying Games. 

Discovering Games. 



DIAMOND GAMES 



ALIEN STRIKE 
EXTENSOR 
BALL RAIDER 
HOLLYWOOD POKER 
S WOO PER 
DIABLO 



AMIGA £14.95 

AMIGA £19.95 

AMIGA £19.95 

AMIGA £19.95 

AMIGA £19.95 

AMIGA £19.95 



Decent Games by Diamond Games. 



BUDGET AMIGA TITLES £9.95 : KWASIMODO, OTHELLO, 
BACKGAMMON, CHECKERS and many more!! 
ON THE KINGSIZE LABEL 



Diamond Games are distributed by Robtek Ltd, 
Unit 4, Isleworth Business Complex, St. John's Road, Isleworth, 
Middx. TW7 6NL. Oi -847-4457 



MAIL 

Tech 
Troubles 

Don't suffer in silence. Let Tim Arnot help you out with 

your technical problems. 

By Tim Arnot 



Dear Tim 

This might sound like a strung? enquiry, 
but we are hoping you it*/// be able to 
solve one of our problems that we have 
come up against. 

Coutd you tell me what is required to 
use a PET dual disk drive with a CBM 
64. I understand that a couple of POKE 
commands may be required. 

We are not in a position to use this 
setup until we have solved this problem. 
Mark Powell, Shrewsbury College of 
Arts & Technology. 

Hi Mark. 

Connecting a PET dual disk drive to a 
Commodore 64 is not quite as 
straightforward as you think. There is 
an obvious difference in that the 
connector on the back of the 64 is a six 
pin din, and the connector on the disk 
drive is a 36 pin I EC socket. The main 
reason for this is that the PET used an 
IEEE-488 interface to talk to its 
peripherals, whereas the 64 has a 
proprietry serial bus. The 'PET to 
IEEE' cable supplied with the drive 
looks like it might plug into the user 
port on the back of the 64. however, 
even though it fits, it will not work. 

In 1982. when Commodore were 
designing the VIC-20 (the forerunner 
to the 64). they decided they needed to 
cut costs and use readily available 
cabling for the peripheral interface. 
This was prompted by the fact that the 
sole supplier of PET to IEEE cables 
had just won a large defence contract 
and couldn't supply for several 
months. So, a fast serial cable was 



invented, that still used the IEEE 
protocol for software compatibility. 
Unfortunately, there were flaws in one 
of the major chips, and faced with the 
choice of Jack Tramiel's wrath or 
slowing the system down chronically, 
the engineers chose the latter option 
and whistled quietly. 

After the history lesson, back to 
your problem! You will need to 
convert the serial bus format into a 
parallel IEEE format. There is no 
simple way to do this other that by 
buying a proprietry interface. The one 
I normally recommend is made by 
Brian Boxes (051-220 2500) and costs 
i'69.95 + VAT. It plugs into the 
cartridge port of the 64 (or 128), but 
has a feed through connector so that 
cartridges, memory, modem, etc. can 
still be used. 



Dear Tim. 

Can you please help?? I have Just bought 
a Sony portable T. V. for my C64 & 
would like to know how to connect up 
the 21 pin SC ART plug from the T. V. to 
the audio/video socket on my C64. In 
the users manual it shows a 5 pin socket, 
but on my C64 it has an 8 pin socket, 
coutd you please give the appropriate 
connections from the SC ART plug to the 
audio/ video socket. 
Steve Norman, Shepton Mallet. 

Hi, Steve. 

The original Commodore 64s were 
shipped with a 5 pin A/V socket, but 



later ones have the 8 pin socket. The 
pinout for the 8 pin version is as 
follows: 

1 - Luminance/Sync 

2 - Ground 

3 - Audio Out 

4 - Composite Video 

5 - Audio In 

6 - Chroma 

7 - N/C 

8 - N/C 

The pinout lor the SCA RT socket is as 
follows: 

1 - N/C 

2 - Audio I/P 

3 - N/C 

4 - Audio GND 

5 - Blue GND 

6 - Audio I/P 

7 - Blue 

8 - N/C 

9 - Green GND 

10 - N/C 

1 1 - Green 

12 - N/C 

13 - Red GND 

14 - N/C 

15 - Red 

16 - Fast Blank 

17 - PAL GND 

18 - Fast Blank 

19 - N/C 

20 - PAL 

21 - Screen 

The simplest way to connect the 
two together is to join all the ground 
connections on the SCART plug 
together and take them to the ground 
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on the 8 pin DIN. Then connect the 
Composite output to the PAL input 
(pin 20) and the audio output to both 
of the audio inputs. The other 
connections are for an analogue RGB 
output, as produced by the Amiga. 

Dear Tim, 

Computer.Commodore 64 (oldish). 
Disk: Commodore I54IC. 
Primer: OKI Microline with Super 

Speed RS-232C board. 
Interface: Interpod. 

tf I could gel the above to talk 10 each 
other I could have printed ihis teller, but 
then I wouldn't have needed to would I! 

I have wired up the interface cable 
(printer/ interpod) using the following 
connections, but nothing happens when I 
direct output to the printer as instructed 
on page five of Interpod. 

Printer 

/ Ground 
5 RD 
20 DTR 



RTS 

CTS 

DCD 

DTR 

Rl 



4 
5 
8 
20 
22 



Interpod 

Ground 
Tx Data 



As you can see. this is using Ready/Busy 
protocol, which is acceptable to the 
printer. 

I also have an Interfaker. not that I 
really know how to use it! When I 
connected it in line between the printer 
and interface the DTD light (on the 
Interfaker) came on when the Interpod 
powered up. Does this mean that I'm 
nearly there'/ 

I have included copies of as much 
documentation as I think might be 
helpful and I really would appreciate 
any help' or recommendations you can 
give nte. 

Keith Foster, Gateshead 

P. S. I thought the articles on disk drives 
and the RS-232C interface excellent 
reading. Please let's have more along 
familiar lines. 

Hi, Keith, 

Thanks for your comments on the 
magazine. I am sure the editors are 
duly chuffed. 



Connecting two RS-232 devices is 
always a difficult and traumatic time. I 
don't think I have ever come across 
an RS-232 system that worked first 
time around. The connections you 
have made should work in theory, and 
the fact that the printer is sending DTR 
positive indicates that it is waiting for 
data. 

The firs! thing you want to check is 
that you have the printer dip switches 
set correctly, i.e. SW 1-4 is on, and both 
SWI-7 and SW1-8 arc on. This selects 
the ready/busy protocol and uses 
DTR for busy control. Also check 
your wiring is really as you think it is. 

Assuming all that to be OK, it 
could be that the interpod is 
interpreting the CTS high as busy. You 
can easily check this by using SSD 
from the printer for busy and reversing 
switches 7 and 8. 

Being remote from the situation, 
that's really about all I can suggest. 
However I'll leave you with the 
thought that if you know what you're 
doing, there's a lot of money to be 
made in (he consultancy business - 
setting up peoples RS-232 ports. 




ALL OUR PRICES INCLUDE CARRIAGE & VAT 
HSV COMPUTER SERVICES LIMITED 

23 / Hampstead House,Town Centre, Basingstoke, RG21 1LG. 

NEWJ£W!BJPRI£ES 



DISKETTES QUANTITY 



NEW 



3% SS/DD 
DS/DD 
5V 4 SS/DD 
DS/DD 
DS/QD 
*COL DS/QD 
★ ♦UNIVERSAL 



135TP1 
135TPI 
48TPI 
48TP1 
96TP1 
96TP1 
96TPI 



20 
26-.50 
30.50 
8.95 
9.95 
10.95 
14.95 
14.95 



30 
37.50 
43.50 
1275 
13.95 
14.95 
21.95 
21.95 



40 
49.00 
57.00 
16.00 
16.95 
17.95 
28.95 
28.95 



50 


100 


60.00 


110.00 


70.00 


130.00 


18.75 


36.95 


19.95 


37.95 


21.95 


39.95 


35.95 


63.95 


35.95 


63.95 


White, either in 


boxes 



^Bs. ***** ^SpgggSEpSSS. 

and envelopes and £™ cemeni suaran tee. 



Hin K ed Lid 



10 

I 50x554 

Wx 5 5W-te d /, id LockabIe 
WXSM- K W Stable 

40xVa- r, rar > Ca se 



1.25 
6.50 
7.50 
10.50 
12.50 
1.25 
7.95 
10.95 



PRINTER STANDS 80 COLUMN 

Nylon coated wire for rear or centre feed 
printers 



£12.95 



TILT / N / TURN MONITOR STANDS 

12" Monitor £12.95 
14" Monitor £14.95 



NO EXTRAS TO PAY 
Credit Card Hotline (0256) 463507 Faxline (0256) 841018 



VISA 
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Eight Speed 
Scroller 

Learn the art of smooth scrolling with this handy 



T 

M he routine 1 have presented here is 
a hardware scroll routine for the 
Commodore 64. It is an 8 speed. 8 
directional scroll routine. The two 
speeds (horizontal and vertical) are set 
at I pixel, however these can be altered 
by changing XSPEED or YSPEED in 
the assembly language program or by 
breaking out of the program (after 
running the basic loader) by using 
R U NSTOP/R ESTO R E and poking 
the two locations shown below. 

The routine works by altering the 
hardware scroll registers whenever the 
joystick is used and changing a pointer 
to the top left of the screen in memory 
w hen needed. The screen contents are 
not moved by a software scroll as usual 
but the screen is taken from the map 
and primed onto the video matrix. 

The routine is a very smooth 
hardware scroll routine. I use this 
routine myself in my own games so I 
know it works. 

Use a joystick in port 2 to scroll the 
screen. None of the ROMS are 
switched out. therefore you may notice 
them on screen as you will all 64K (in 
IK sections) printed on screen and 
ROMS switched out to eliminate this. 

The scroll moves in the opposite 
direction to the way the joystick is 
moved, as it would in a game. i.e. to 
scroll left, move the joystick right. 

The routine presented here is nol 
really a complete program for you to 
use. What it does do is illustrate how 
you would produce sugh a routine for 
your own programs. 

The Program 

The eight speed scroller is presented 
both as a Basic program in the form of 
a series of data statements, and as an 
assembler listing. 



program 
By Richard Ikin 

As you can see from the assembler 
listing, the first task is to set the raster 
interrupt. This is what the 'setint' 
routine does. It also switches the Vic 
chip to look at memory locations 
16384 to 32767 instead of the default 
(0-16383). 

You may notice that the program 
does not switch out any of the ROMs. 
The Basic ROM can be switched out 
by clearing bit Q of location $0001. 
However, if you do this you must 
change the RTS in line 998 to an 
endless loop, as the RTS will cause a 
return to Basic and as you have just 
switched Basic out this will cause nasty 
problems. 

OK. whenever a raster interrupt is 
generated, the 64 will divert its 
attention to the interrupt routine. The 
first thing that should be done when 
the routine is entered is to check the 
direction of the scroll. This is held in 
the variable 'way'. If you look at lines 
6160 to 6174 in the assembler listing 
you will see what values need to be in 
'way' to cause scrolling. As you can 
see. a zero will cease all scrolling. 

When the direction has been 
decided and appropriate action taken, 
the raster split is processed. The 
comments in the assembler listing 
explain what action is taken. 

Lines 1741 to 2620 are the lour 
routines that perform the actual 
hardware scrolling of the Commodore 
screen. These are the routines that 
provide the smooth part of 'Smooth 
Scrolling* 

As you may know, the Vic II chip 
can alter the horizontal and vertical 
position of the screen with up to eight 
vertical and eight horizontal positions. 
Therefore to achieve smooth scrolling 
we must: 

a) alter the scroll register until it 



reaches its maximum or minimum 
value. 

b) when this point is reached we 
must change the address of screen (2) 
in the map. 

After every second interrupt the 
contents of screen (2) are displayed on 
screen ( I ). If you look at the 'window* 
routine you will see that the section of 
memory /addressed by the 16-bit value 
'map' is loaded into the video matrix at 
17408. 

The contents of 'map' is the 
address on the top left corner of screen 
(2) in the map. Screen (2) is an exact 
replica of the screen you see when you 
look at your TV. All it does is point to 
the data which is displayed on screen. 

As the routine will scroll through 
the whole 64K of the Commodore's 
memory you will at times no doubt see 
some pretty weird data printed up on 
the screen. This is because none of the 
ROMs are switched out and what is 
being printed up is the ROMs working 
storage areas being displayed on the 
screen. When you set a limit to the size 
of the scrolling area and switch the 
Basic ROM out. none of this occurs. 

The control routine is a fairly 
Standard routine and can be replaced 
by your own. as long as you store the 
correct values in 'way'. 

The speed of scroll is set by the 
value in 'Xspeed' and 'Yspeed'. The 
value should not be less than one and 
not more than seven. They are 
independent of each other. 

In the future I will add a routine to 
set the size of the scrolling, and will 
also present any further alterations 
that I make. I would be interested to 
see anybody else's ideas. W 

See listing on page 91 
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TflTQ! QOntJ to on/ ICO rom curt DO 

iuii iluiiu rur rUUci\ Lor / cm ico 

PERPHERRLS.THE FINRL FRONTIER. .BUR fllSSKfflJD BBLDUJ 
GO 'MERE HO OTHER UTILITIES \WE GONE BEFORE 

CRPTRIHSLOG...THE TOTRL S0LUTI0I1 TO RLL yOURBRCK-UP HEEDS... THE ULTII1RTE 8RCK-UPCRRTRIDGE HERE HOU ii 



REPORT On FlilDMGS 

Acton Replay Mk III It more powerful . mote mendly and will back 
up more programs man any competing utility by taking a 'Snapshot 
ofthc-Drogram in memeey so ildoesnt matter now rt was loaded .. 
from dish or tape at normal or turbo speeds. . . the results are the 
same - Perfect!! Amaiing!!! 

STRR8F&E UPORTE 

• Simple to use : just press me button and make a complete 
backup: Tape to Tape. Tape to Disk. Disk to Disk. Disk lo Tape. 
-THE PROCESS IS AUTOMATIC- JUSTGIVE THE BACKUP 

A NAME 

• All backups wi reload at turbo speed independently ot the 

cartridge 

• Dual speed tape turbo system Programs can load up to 3 times 
taster than commercial turbos - mat's over 1 0 hmes normal 
Commodore speed 



• Freeze me action then view the program with the monitor 
feature Add pokes lor infinite lives etc Then restart the game 
or backup - ideal (or customised versions ot your games 

• Picture Save. Save any multi-colour. Hires screen lo disk or 
tape Compatible w>ih Blaang Paddles, Koala. Slideshow etc. 

• Fully compatible wdh 154V 1541C. 1570, 1571. and ehancer 
or any CBM compatible data recorder 

• For C64, 64G, 128. I2BD (In 64 mode). 

• Unique Sprite Monitor. Freeze the Action and view all tho 
Sprites, watch the animations scroll across the screed. Save 
Sprites to disk or tape. Customise your games by loading sprites 
from one game lo another - then restart the program or make 
a backup. 



• Compatible wrlh last DOS and Turbo ROM systems- 

• Backup process m turbo speed - taster than any rivals. 

• Special compacting techniques. Each program is saved as a 

s;-g : L> I a. 

• Transfers multistage tape programs to disk - more Iran any 
other cartridge - even the eilra stages are turbo toad - a unique 
feature. 

• Spnte Killer! make yourself inoestruclrbjie by disable) Sprite 
cofcsionsin games. 

• Fast disk format (20 sees). 

• Built-in unstoppable reset button. 




£38 




w 

BREAKS THROUGH 
THE 10 SECOND BARRIER! 

Anon Repay HI no* cores wlih a" amimg new 
OsK Booiioaw inat wil reOad your backies al TWENTY FIVE 
TIMES normal speed Trte faslwl Oisk turbo yet Oflvrsed"! Tne*e are NO 
CATCHES 'WARP'S »oaj wrth ALL your (pm« Works with arry OsK r»«e No- 
pt'oan -squired - No naUnaie mooilicaionj r©c««ry - No user knowledge requred - 
ocffamj bad INDEPENDENTLY LOADING TiUE - 9 R SECONDS fhy a rypcal game saved try 
WARP-» m wurocm wm ACTON REPLAY ill) TNt tone is tor he COMPLETE Icao process Iron, start lo 
»na* Penafl is entrSy INDEPENDENT ot tne cvt'iooe or any rjtrwr hauJwaie 
C-yput lacturate'l figures (01 some rr»oi backup lyskrrni: 



SYSTEM 

ACTION REPLAY MK 



ACTION REPLAY MK 

S*Vir> «*>• AABP • s 



FREEZE FRAME (MK IV) 



FREEZE FRAME (LAZERf 



EXPERT SYSTEM 



LOAD TIME 



25 SECS 



9.6 SECS 



IQ SECS 



25 SilCS 



30 SECS 



r-BOGHAWf. If » "IS" 



THREE 



THREE 



TWO OR THREE 



T'.VQ 



HWFE 




Ai purcnasers of Action Replay III will receive WARP'S FREE with thoir cartridge Enistmg Acbon Replay ill owners can obtain ' 
WARP'S Disk turbo by sending E2 50 post free (No need lo send your cartridge) OR obtain 11 FREE on Ihe Enhancemeni Disk |E7. 



THE ACTION REPLAY ENHANCEMENT DISK 

Tf»e best coHedicr o" lape » Ofh nrm rouHr« lc* nooVano*0 
•Ui^pnionrTaieQDragiJitLsil^ii.C^sr^ioriiNpyvtenirg. 
SuwrwG*rtM AcboIAcm GauW Sooercytlo MarOleMaOnest 
Wcr*) Games) 31 inesmal Ustsourunojepara'neie.'iysm No 
w*m"90j» 'wynM TurOotoad itwomfirwi NO'E Stardaid 
atvctp ltnle<y ncm* muliiftaMrs eg wmiei G*nen elc ate Dak 
uvuiies file copy ami 3i> backup lAMes 
PfllCf E7 35wlhFREE 1 Mutfa3<iiii su^cwtrxoaplayohoadng 
sows fires pOues etc. savW Dy Anon Replay Great 
■Miuiani' 




PERFORMANCE GUARANTEE 

i00\ Sucwss ■> Rival Claims* Wno's tOrung Who' 
Arson Replay M* HI wil backup any program «moi any oner eanndga 
can kwtav - ana mom' n also hat an unmavnaola range ol features 
Ccnaoe* Freeze- Frame tar example «nOi uses more do* 
sates at slower speed, las sknw tape loaaer. nas nc Dull ti dak 
'astOaoSr. ro picture Spnie or restart leatutes and ccsls CtO more 
WAaopRtptty So«no'soddiog*r<i'&jy Action Replay t* 
ftyou trt rnai udoes not twaupUour cUmi relum 1 «itr»n 7 days 
ol receipt and your money w'l De refunded 




USUALLY SAMEDM DESPATCH OS ALL ORDERS. 

Send cheques/postal 
orders to: 

DATEL ELECTRONICS, 
UNIT 8.9 DEWSBURY ROAD. 
FENTON INDUSTRIAL 
. B ESTATE, STOKE-ON 

ClCCtrOniCS TRENT. TEL: 07HS 27M15 



datel 




TELEX: 367357 TELSER G 



CALL 24HR CREDIT CARD LINE 

0782 273815 



SEE OUR DOUBLE PAGE ADVERTISEMENT ELSEWHERE IN THIS MAGAZINE FOR OUR FULL RANGE OF 
COMMODORE ADD ONS. SEE US ON PRESTEL PAGE No 258880000A 12 PAGE CATALOGUE t ORDER PAGE. 




3 SLOT 
MOTHERBOARD 

Save wear and tear on your 
Expansion R>rt 

J Accepts 3 cartridges J Onboard safety luse 
_J Switch in/out any slot Q High pad* PCS 
□ KiUy buffered. U Reset button. 

only £16.99 

DATA 
RECORDER 

J Quality Commodore oampaUbifl data raccrdet 

J Pause control. J Suitable for 64/128. 

J Counter J Send now for quick delivery 

ONiy £24.99 




SMART CART® 

Now yon can have an 8K or 32K 
cartridge that yon program like 
RAM then acts like ROM! 

□ 8Kor32KpeeudoROM. 

LJ Battery backed to last up to 5 years (inhium 

battery). 

LJ Simply load tie program you require - Lhon 
fuck the switch The cartridge can then be 
removed just like a ROM cartridge. 

J Mate your own cartridges including autostart 
types - without an EPRGM burner. 

J Can be switched on or off board via software. 

J 1/0 2 slot open far special programming 
techniques. 

_J 32K version has 4 x SK pages. 

J Some knowledge of M/C a helpful - but full 

instruction arc provided. 
8K VERSION £ 1 4.99 
32K VERSION £29.99 

SMARTCART 
UTILITIES 

A series of utility programs for use wiUi Smartcart. 
Simply load In the program and you have a 
powerful cartridge When you have a different 
requirement - load In another program and you 
have a new cartridge. The process takes seconds, 
and can be repeated any number of tones. 

Vfe intend to release a range of 
programs. The first available are: 

DISKMATE n 

I J all the features of Dlskmate n (see ad). 

leaded in seconds - with full 
instructions. ONLY £9.99 



L ELECHOIIIO 




iMM\' 

PRINTER m7 

Now yon can torn your HPS 801 
into 4 printers in onell 

_J Alternative character set ROM - teed in 

_i All four aeto have true descenders 

J 100% compatible with all software 

J Descender. JKcUpee- 

U Scribe. □ Future. 

LI Choose any set at the flick of a switch. 

"For anyone who uses their printer 
often this chip is a must. It's quick 
and easy to use and the end 
results are impressive" - %ur 
Commodore, Jan 87. 

only£ 19.99 




TURBO 
^rorrr ROME 

Turbo Bom n is a replacement for 
the actual kernal inside your 64. 
It provides superast load/save 
routines. 

[J loads most programs at 5-6 times normal 



LI Saves at 5-6 times normal. 

□ Improved DOS support including 10 see format 

J Programmed function keys- bad, directory, 
old. etc 

J Return to normal kernal at flick of a switch. 

□ PCOPY - £60 Nock We copier 
JPLOAD - special I/O loader. 
J Hue lots more. 

LJ Fitted in minutes - no soldering usually 
required. (On some 64's the old BOM may have 

»**■«■«»• o«y £14.99 



BLAZING PADDLES 

A complete I ightpen/ graphics illustrator package. 

LI A fully icon/menu driven graphics package of a calibre which should cost much more 
J Complete with a fibre optical bghtpen system for pin point accuracy 
_| MulU feature software including: 

• Range of brushes •Airbrush •Rectangle • Circle • Rubberbanding • Unes •Freehand 

• Zoom mode • Printer dump • Load save • Advanced colour mixing - over 200 hueoil 

• Cut and paste altows chapes/ windows/ pictures to be saved to/from tape/disk 

LI Blazing Paddles will also work woh many other input devices including: Joysticks. Mice. Graphics 
■ablete. Trackball etc. 

J Pictures can be saved from Action Replay and edited with Blazing Baddies 

Complete Blazing laddies 67 Lightpen ONLY £24.99 
Blazing laddies available separately for £ 1 2.99 



TOOLKITS 

The ultimate disk toolkit for the 1 540/1541 

□ A disk toolkit is an absolute must for the serious 
disk hackee toolkit IV has more features than roost 
for less. 





LI DISK DOCTOR V2 - Read and write any track 
and. sector Including extra and renumbered 
tracks Repair damaged sectors Look underneath 
read errors. 

□ HEADER/GAP EDITOR - recedes and 
displays ALL header information including off 
bytes and header gap. Rewrite the entire header 
and header gap Renumber sectors Also edit any 
sector tail gap 

□ DISK LOOK - Sort directory Recover to« 

Ui.'i iiy .'.Art raduMmm 

Disassemble any Die program directly from the 
disk to SCREEN or PRINTER including 
undocumented opcodes. Edit ft"" Much, much 
more 



□ Turn your Smart Cart into a 32K RAM/disk. 
LJK1K of instant storage area for flies/programs 
LI Load/save instantly 

□ Disk type commands: load. Bare, directory; 
scratch 

LI Program data retained when computer Is 
switched off! rijm. 

□ Full command ONLY K9 . W 
set with instructions 



J FILE CCMftCTOR - Can compact machine 
programs by up to 50*. Saves disk space 
Compacted programs run as normal. 

J »ST DISK COPY - Copy an entire disk in 
2 minutes or teas using single 1541. 

J aST FILE COPY - Selective file copy Wfcrks 
at up to 6 times normal speed 

LI FORMATTER - 10 second format an enure 
disk or format any individual track or halftrack 
0»41. Redefine any of W parameters U create 
or recreate unique disk formate. 

J ERROR EDIT - Quickly And and recreate all 
read errors incfixling extra and renumbered 
tracks or sectors and naif tracks from 0 to 4L 

>vr-r. iv.^atel 'v.: i jer ^topc- il.w. ;,v.l 
to redefine any necessary parameters 

only £9.99 



ROBOTEK 64 




DIGITAL SOUND 
SAMPLER 

J The new sampler aflowB you to record any 
i-junu >i .■'''■■ij m'i iiiumo! j and Ellin fl pttDj 1 
with astninrhng effects 

□ Playback forwards/ Dackwards with echo/ 
reverb/ring modulation etc 

J Now with full sound editing module to produce 
outstanding effects. 

LI Pull 8 bit D to A and ADC conversion. 

LI MIDI compatible with suitable mterrace. 
(I.e. Date) unit for 5,2999. see ad). 

□ Live effects menu includes real time display 
of waveforms. 

□ Line la' role In/line out/ feedback controls 

□ Powerful sequencer with editing features. 
_J Load/ save sample. 

Q Op to 8 samples in memory at one time. 

Q Tape or disk (please state 1 

Q Qxnptase software ■ 'hardware package C49.99 

LJ Gom-Drum software is available separately at 
€9.9* to turn your Sampler 11 Into a Com-Drum 
system as well as a sampling system. 



1 




□ Robotek 64 is a comprehensive liaxdware/ 
software packagB which enables you to connect 
your 84/ 128 to the outside world. 

J 4 output channels - each with onboard relay 

Q 4 input channels - each folly taiflered TTL 
level sensing. 

J Analogue input with full 8 bit conversion. 



COM-DRUM 

Digital Drum System 

_| Now you can turn your computer into a digital 
drum system. J Hardware/software package 

□ S digital drum sounds in memory at one time 

□ OompletewitnSdrum kite. 

J Real drum sounds - not synthastsed 

LI Create superb drum r hythms with real and 
step time J Full editing. _| Menu driven. 
J Output to hi fl or through w speaker. 

□ Load/save facfllta ( fope 

only £29.99 or disk) 

COM-DRUM 
EDITOR 

□ 24 drum Bounds supplied on disk to enable 
you to construct your own drum kit. 

LI Re-arrange sounds supplied with a Com-Drum 
to make new kite. 

LI With sound sampler hardware you can record 
your own kits. p Load/save faculties. 

ONLY £4.99 disk only 



Model & Robot Control made easy ^= 

LI Vbtoe input for voice control 

G Software features- teat mode/analogue 
measurement/ voice activate /digital readout etc. 

□ EiuxUoni value' ONLY £39.99 

including haniware/software/ 
mic etc. (State tape or disk) 





LECCROniO 



256K SUPEROM EXPANDER 



J Bow you can select from any of 3 32K RPROMs Instantly 

□ 8 sockets to accept unto a 32K EPROM In each. 

J On board uperawig system - do programs 
to lead. 

□ Program pur own EPMU& using our RPROM 
programmer 

l_|Bo n»ed to haw loads of canriugea - Jaat 
male a selection Iron the Superom menu 
Jccmiory oluuiltw on power irp 

□ PuDy menu driven on power up. 

□ Select any ale* under software controls 

_J Unique EPROM e r.urator feature will take 
your cwn programs - basic or m/cand turn 
tbetn into autostart RPROMb. ( EPROM burner 
required). 

□ Accepts 2784/27126/27258 EPROMs 
Q On board unstoppable reset. 

only £29.99 





RESET 
CARTRIDGE 



i met button. 

□ Resets erei so called 'Uiistoppable" 
pragmas 

□ Add paffs from magazines etc 
J PHe in cartridge port 
jacnlypiuga 

only £5.99 




16K EPROM 
BOARD 

jAccertt2x8KEPROMs. 

J Srichable to configure as 2 1 BK or 16K 



Q On board unstoppable reset 
□ Full tostrucEons 

only £8.99 



QUICKSHOT 
TURBO™ 

_| Tbp quality fast action. 

j Ibp ff trigger fire buttons 

J Rapid Ore /auto action. 

Ll Suction feet for on* handed action. 

J Extra hjudwearing. 

ONLY £1 2.99 lor 64/128 

ONLY £1 3.99 fcrcie 

QUICKSHOT ll 

□ World's top selling Joystick. 
_| Top fif trigger fire buttons. 
_| Rapid fire control 

LI Suction feet 

ONLY £7.99 torcw/iaa 
ONLY £8.99 for CIS 



DISK 
NOTCHER 

J OulcWy and easily double your disk 
LI Use both sides of your disks. 
J Simple to use 

J lake* seconds. 

only £4.99 




4 WAY KERNAL 
BOARD 

J This board fita in place of the kernal in your 
64 and accepts a 18K or 32K replacement kernal 
giving 2 or 4 different operating systems 

L) Juflt Dick the switch supplied to select 
between systems 

J Tha ts a carrier only - reedy » accept your 
own chip. 

_J Now you can have all your different systems 
available at onetime 

J Full instrucUonH J Pitted in minutes 

only £8.99 



5 WAY KERNAL 
EXPANDER 

LI A multi carrier board accepts up to 3 chips 

_J Pits m place of original kernal of 64. 

J Three sockets - one for the original kernal 
phis two others each accepting a 16K chip — 
that's 5 operating systems available at U» Dick 
of a switch! 

Ll Pitted in minutes. 
LJ FuB Instructions. 

onutE 12.99 






DEEP SCAN BURST NIBBLER™ 

_J The most powerful disk nibhler available anywhere, at any prtoe! 

Ll Buret Nibbler is actually a two part system - a software package and a parallel cable to connect the 
1541/1670/1571 to 64/128 (state type). 

_J What gives Burst Kibbler its power? Conventional nibblers have to decode the data from the disk 
Wore It can transfer It using the serial bus - when non standard data is encountered they are beat 
Burst Nibbter transfers data as raw GCR code via the parallel cable without the need to decode ft so you 
get a perfect copy of the original. 

• Will nibbleupu) 41 tracks. • Copy a whole disk In under £ minutes. • Pull instructions. 

• Regular updates - we always ship the latest • Pitted in minutes - no soldering usuoUy required 

• Full cr <i tracks. • No need to buy parallel cable if you have Disk Demon/Dolphin etc 

• Cable has throughbus extension for other add ons. 

_| Whether to choose PaslHack'em or Burst Kibbler? Fast Hack'Rm Is unbeatable value as an 
''■Jl-rounder" - with nibblera. 1 or 2 drive copy, format, file copy. 1571 copy etc etc. so if you haves 
more general requirement perhaps PastHack'Em Is for you. Bum Nibbter Is a pure nibbter second to 
none, for the reasons stated So If it's just making backups you are Interested in. there Is no other 
product to beat it 

ONLY £24.99 COMPLETE 

SOFTWARE ONLY £12.99 CABLE ONLY £ 1 4.99 




EPROMMER 64 



TMJ 



J A top quality, easy to-use EPROM programmer for the 64/128. 

□ Fuuy menu driven software/hardware package makes prosjwnmlng/resdtn^verlfymfc 
EPROMs simplicity itself. 

□TO program 2716, 2732, 2764. 27128 and 27286 chips. 125.21 or 28 vote 

J Fits Into user port for maximum commubthty with cartridges /Superom Board etc. 

Ll Full feature system - all functions covered Including device check/ verify 

J Wo believe Bprotnmer 64 is the mosL comprehensive, most friendly and best value for money 
programmer available for the 64/128. 

J Ideal companion for Superom Board, Cartridge Development System, our kernal expanders or Indeed 
any EPROM base project 

J Comas eomptote with inolructions - plus the oortridge handbook. 

ONLY £39.99 COMPLETE 





PROFESSIONAL DOS 0 mikrotronic 
£64.99 POST FREE with Disc Demon operating system 
"The world's fastest parallel operating system" 

□ loads a OPicaJ 202 block pmgnimSle in □25x Duster load (SEQ Alee), 
under 3 seconds! Q 20X faster save < PM mas). 

□ 60x (aster load (PBGOtea). Q20i &stersa TO (8BJffle8). 

PLUS AH ADVANCED COMMAND STRUCTURE INCLUDING: 

□ fest formal - up tc 40 tracks (749 blocks) 

□ 16 function keys: list run, load, directory 
IbrmaL saw. old, verity etc 



□ Ftoad wffl fasUoad files up to 250 bkoks 
(other similar systems wQl only cope with 



□ Number conversion. LJ Reset. 

□ Unique buffi In QJe copier will copy files up to 
250 blocks like i y*wiwg — mi>tfr fr> copy options 

- perfect for copying Action Repisy Dies 

_J . .! .*. I'!'- wiL: iut:oiW.Ji! ■: !t«rv> 

- oan be switched out tor non compaUbte 
programs. 

□ ftrtoot for use wilh Action Replay 3 - a 
typical AR3 backup wiD reload In about 3 seconds 

- yes 3 seconds! 



j Speeds up other DOS funcQons including 
verify, scratch etc. 

□ Comas oompkte with super-last Die and whole 
disk copier free! 

□ Screen on or off during loading. 

□ Enhanced command set - over 30 new 
commands. 

□ Easily fMed - Disk Demon plugs inside the 
1541 and the new operating system chip plugs 
inside the 064/128. fitting takes only minutes 
and usually requires no soldering. 

□ User port throcghbus supplied free - you 
could pay 415.00 for this alone 

□ Supplied complete - no more to buy. 

J works on C128/1541 In 64 or IBB mode. 
0118 version 

£69.99 




BLUE CHIP DRIVE •lolly OM/iaaeempatiblfl. 

J M Luc ft Kfl quAy drtit at a wonlbk 
price 

□ Super itmbOecaie 
_| Ixiernal wwir supply for cool 
operation. 

_| DfeM dm* tutor 

J SippUBd ooDpieb wan all cattw 
- no more to buy 



Tluiitivs Ji v.n p7ol;!iCiy tae moat oampetJbkl drive avallabift to In* 
twanvrt ga. Mere io Ulan mn COiamodorte own '16410 Uuehntortso 
than other bo calfeit cmnpaQbie In (act ire sen barn unable to find a 
program Including tlx Ulaai Ual wouM net wcrfc. (ALUmaafPrewj). 

J Io need to look elsewhere - this U the best. 

ONLY £ 1 39.99 POST FREE 
( II yon require courier delivery add 16.0O). 



ULTRA 
CRUNCHER 

• The nltlmite cartridge baaed 
program compact! t 

□ ComtacU by SOW 

I J More programs tor daft. 

Q 3 oomp&cUEif pm£taniB on one 
cartrsdc*. 

J hFi tadnvf smrj> routlaeB - 

■oris wsD Deo Demon 

l_J Can bvbq former cc<rj*e AK ID (ileal 

□ 2S0 bfcck fUn «iiy function 
D ruH DOG cupport InoludUif : ' 

ONLY € 1 2.99 ■ eanxMli. 
Available an chip only for IB6K 

Superom Board for only £7.99 



FAST HACK EM ™ 

• Haiti Modulo Disk Hibbler - all on one disk. 

□ BtoelelHlNiebkr - Copy a tal in 2 auoutM. 

j I ■■■■ - • • .-. ■ :. • la 

JSuoarbyaniaODpy - Under 0 nwculs lypu*Uy 
J Qidbb wan Fai tracks 

JBuperfytOapy - lottro diak m 36 soooaoa with verify 
^JTWInDrWoCopur - sVto faster! 

J Fta* unique "Parameters" mode. Hue* rQas Untaa" ibe anra Nr.iv.iy 
! •> >: ■ -.u-iv i sH % pafesMtai bra tvjvauktttnod or iwn awgw, 



J Ho other product is inch i good 'ill Rounder" at this price 
Its uneatable. 

ONLY £9 .9 9 POST FREE 



clonic 





DISKMATEn 

Tho Disk Utility Cartridge 

□ Disk hsttoad cartridge 

□ Up to 5 times aster. 

J Fast save U Fast format < 10 sees ). 

□ Improved DOS - single sttoto commands - 
load/savo/dir/old etc 

□ Redefined function keys for tost operation of 
common ^"""""^ 

LI ruwerflil toolkit commands including; 
I-A'/j. dl:V'i Lropy.Append/autonuin/ 



□ Rue a full machine cods monitor - too many 
features to list but rt has them aili 

□ Special switching techniques make Dtskmale 
invisible to the system. Therefore It is a more 
compatible fasUoader than other types. 

□ DlskmateDls 

ONLY £14.99 



MOUSE 

□ CBM 64/128 mouse 

□ Wide compeiibilHy with software Including: 
Blazing raddles. 

□ works by mimicking joystick so will work in 
any Joystick application including graphic 
packages only designed for Joystick. 

□ PuncDonfl on eaher jaysQck port 

□ Optical system operation 

omut £24.99 

CHIPS 

□ 27128 £3.O0 EACH 

□ 27286 £4.50 EACH 





T 



MIDI 64 

A Full Midi Interface for the 
64/188 at a realistic price 

□ MIDI in Q MIDI thru. □ 3 1 MIDI out 

□ Compatible with most leading software 
packages Including: Sell, JM8. Advanced Uusw 
System. Jorech. Steinburg etc. 

ONiy £29.99 



CARTRIDGE 
DEVELOPMEN 
SYSTEM 

□ AH the necessary pans to produce an 8K/16K 
auto-Ban cartridge 

□ Top quaflly PCB. □ IrnacUon moulded case 
J Reset switch □ 16KEPR0M. 

□ "Cartridge Handbook" gives full details and . 
Une on building and configuring the oartnjge Sr 
many uses 

oniy £12.99 
complete with handbook 



ALL ORDERS NORMALLY DESPATCHED WITHIN 48 HRS 

HOW TO ORDER .... 




BY PHONE 


BY POST 

Send cheques/POs made 
* payable to 1 Datel Electronics' 


BYPRESTEL/EftX 

Presiel Sages • 25cSQQCCA 


0782 273815 
24 hr Credit Card Une 


Rot Orders 
0782264510 


DAZ 

ELECl 


EL 

=sonio 



OBITS 8/9, DEWSBTJBT ROAD, FENTON INDUSTRIAL ESTATE, 
FENTON, STOKE-ON-TRENT TELEX: 



SALES ONLY 
0788 873815 



TECHNICAL ONLY 
0782 202888 



COMPETITION 



Spot the Ball 

Win one of five videos of the 1966 World cup, plus a 
chance to see the European Championships Final. 



Your Commodore is pleased lo team 
up with Addictive Games in a superb 
competition based around their 
Football Manager II game. 

On offer are five copies of the video 
of the 1966 World Cup, the one that 
England won. 

Plus for the first correct entry 
pulled out of the hat is the chance to 
take part in a game of Football 
Manager II against three competition 
winners from other magazines. The 
overall winner of this game winning a 
trip to see the European Football 
Championship Finals in Munich in 
June 1988. 

How lo Enter 

On this competition page you will find 
a photograph of some football action. 

In the time honoured tradition the 
ball has been erased from the picture 
and it is up to you to point out where 
the ball is. 

Study the picture carefully and 
mark with an X the position where you 
think the ball is. 

Then complete the entry form and 
return it together with the picture to 
the Your Commodore editorial address. 
Closing date for the competition is 
December 31st 1987. 

The Rules 

Entries will not be accepted from 
employees of Argus Specialist 
Publications and Addictive Games. 
This restriction also applies lo 
employees' families and agents of the 
companies. The How to Enter section 
forms part of the rules. The Editor's 
decision is final and no corres- 
pondence will be entered into. 




r 



Football Manager II Competition 
Entry Coupon 

Name 

Address 



n 



Postcode 



Post to: Your Commodore, Football Manager II Competition. I Golden Square 
|London W1R 3AB. Closing date: 31st December 1987 
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PLUS/4 UTILITY 



4 

Typro 



Give your Plus/4 powerful typing and wordprocessing 

facilities. 

By P.G. Simonds 



he inbuilt wordprocessor of the 

Plus/4 is great for producing small 
notes or documents, However, when ii 

comes to planning out large 

documents or tables it isn't really of 
much use. 

Typro for the Plus/4 gives your 
computer advanced typewriting and 
wordprocessing facilities. The 
following is a list of some of the main 
functions that are offered by the 
pr« )gram: 

Each line is printed as you compose 
your document, either on a dot matrix 
primer or on a daisy wheel. 
Line length can be set up to 164 
characters: this is great when using the 
Commodore DPS 1 101 daisy wheel, 
with end of line audible warning. 

Characters can be printed in either 
cursor up. uppercase and graphics, or 
cursor down, upper and lower case, 
modes. Reverse can be used as well as 
normal text, facilities are also present 
to allow use of expanded characters if 
using a dot matrix printer. 

If you are using the DPS 1 101 daisy 
wheel printer you can access the 
double strike and underline modes. 

Documents of up to 200 lines can 
he entered, subject to line length. With 
a document of 100 lines, line length, 
the full 200 text lines are available for 
use. The amount of memory left is 
shown in the single line menu mode. 

Text andgraphic(bit image) modes 
are available for normal or zero- 
spacing between lines on a dot matrix 
printer. 

Wordprocessing modes include the 
ubilriy to insert or delete lines, copy 
lines to another part of the document, 
review and edit modes as well as file 
saving and document merging modes 
together with full or part document 
printing facilities. 



One major plus for Typro is that 
the whole program is written in Basic. 
This means that the program can easily 
be modified to work w ith cassette or to 
work with other printers. It may even 
be possible, with a little work, to make 
the program run on a CM. 

Rather than simply giving a 
description of how to use the program, 
a detailed breakdown of the program 
is given, this should enable people with 
a little programming knowledge to 
alter it to suit their own requirements. 

Initialisation 

( 1000 - 1070 and 2000 - 2080) 
This section of the program initialises 
all of the variables required by the 
program - screen colours are also set 
here. This section of the program 
allows entry to typing mode (new 
page), loading of a disk file (old page) 
or to the full page menu. 

Entry is made to this routine every 
time you RUN the program or the 
Commodore key and X are pressed in 
menu mode. 

If a new page is started this routine 
will set the line length. A typing grid is 
also set up to assist with the planning 
of text layout. This mode also checks 
to see if the prinlerfdevice number4)is 
switched on. 



Typing (new page) 

(1080- 1690 and 3000 3120) 
This routine assembles and then prints 
each new line as it is added to the 
bottom ol the page in memory. 

Entry to this mode is made by 
pressing *C* from the main menu or 
after printing the previous line. 

When this routine is entered for the 
first time the document width will be 
set. The new line will automatically be 



printed when it is full or if terminated 
early by pressing CLEAR/HOME. 

After printing a new line, you must 
press either *M' to enter menu mode or 
X" to enter a new line. Any other 
response will generate an audible tone. 

Inverted commas can be used in the 
text. Howev er, it is worth pointing out 
that some printers produce a control 
code at the end of a line that has an odd 
number of inverted commas on a line. 

The following keys are used in this 

mode: 

CLEAR/HOME - terminates a line 
and prints it. 

ESC - Returns program to menu 
losing any text. 
CURSOR LEFT - deletes a character. 
CURSOR RIGHT- acts us space key. 

Pressing CONTROL with one of 
the colour keys gives access to facilities 
such as underline, etc. Figure 1 gives 
details of all of these. You can see 
control codes at a glance since they are 
displayed as Hashing, reverse' field 
black numbers. 

If you turn underline on or reverse 
Held the text will be reversed on the 
screen. 

Menu Mode 

(4000 - 4290) 

This is where you can select which part 
pi the program that you want to go to. 
Entry to this section of the program is 
usually made by pressing M in other 
options. Entry can also be made by 
errors or tasks completing their 
operation. While in this mode the 
single line menu will display the 
memory available. The full screen 
menu can be entered by pressing 'H' 
while in single line mode. The text 
currently in memory can be deleted by 
pressing the Commodore key and 'X' 
at the same time. 
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Single 
Width or 
Strike 


Double 
Width Or 
Strike 


Line 
Spacing 


Graphic 
Spacing 

i 


Reverse Or 

Underline 

On 


Reverse Or 

Underline 

Off 


Upper Case 
& Graphics 


Lower Case 
& Capitals 


A=15 


A=14 


B=16 - B=8 


C=18 


C=146 


D=146 


i 1 

D=17 


Control 
1 


Control 
2 


Control ! Control 
3 4 


Control 
5 


Control 
6 


Control 
7 


Control 
8 

. ■ ■■■ ==] 



Edit Mode 

(5000 - 5310) 

Tliis section of the program allows you 
to alter a line of text that already exists 
within the program. Entry to this 
section is made by pressing "E" while in 
the menu or review modes. 

If you try to edit a line that does not 
exist you will return to the menu. Exit 
from this routine can also be made by 
pressing ESC" as long as the text and 
control codes are unchanged. 

When you enter this mode the 
existing text will be printed to the 
scree, together with a blank typinggrid 
to allow you to retype the line. Should 
you only want to change the start and 
end of line control codes you can 
change them and then press the ESC 
key to use the old text with the new 
codes. 

If the text or embedded control 
codes are to be changed the whole line 
must be rewritten. While typing an 
audible lone starts as you reach ten 
characters from the end of the line. 

As with normal editing mode 
cursor left deletes a character, cursor 
right acts as space and clear/home 
terminates line entry. When editing a 
line the same routine is used as lor line 
entry at 1080 - 1430 and the same 
control code display and delete 
routines at lines 1435 - 1600 and 1605 - 
1690 are also used. 



Printing 

(6000 - 6210) 

Entry to this section of the program 
allows you to print out the whole of the 
document or just a small part of it. 
Entry is made to this routine when you 
press 'P* while in the menu mode. 

When in printing mode you can 
print the full document by pressing *F* 
or simply part of it by pressing 'P\ 
Should you want to return to the menu 
you can do this by pressing 'M*. 

Should you want to print a single 
line you can do this by making both the 
start and end lines for a partial print 
the same. Return to the main menu if 
the start of printing lines does not exist 
or if the end of printing is zero or less 
than the starting line. 



Save File 

(7000 - 7200 and 8000 - 8130) 
Entry to this section of the program 
allows you to save the documents that 
you have entered to disk. Entry to the 
save mode is made by pressing 'S' 
when in the menu mode. 

Should you enter save mode by 
mistake the *N' key or entering a file 
name "M* will return you to the main 
menu. The names of the files on disk 
can be indexed using a file name of T. 

Should you give a file the same 



name as one that already exists on the 
disk, the new file will overwrite the old 
one. When you save a document the 
page length, page width and 
commas/colon usage llag (variables 
N, W and S) are also saved. 

Each line of the document is saved 
in two parts. This is because retrieval 
of strings greater than 84 characters in 
length form disk or tape which can 
cause problems. Saving strings that 
include commas and colon causes 
problems, these are therefore 
substituted and translated before 
saving. Formatting of the strings so 
that they are ready for filing is done by 
the subroutine at lines 8000 - 8130. 
When a file is saved confirmation will 
be reuired if you have used commas or 
colons. A response of 'N* will save 
translation time when the tile is read, 
however don't type 'N' if you want to 
use commas in this file. 



Load file 

(9000- 9290) 

This section of the program loads a 
disk Hie into memory, erasingany text 
already in memory. Entry to this 
section of the program is made by 
pressing '1/ when in menu mode. 

Facilities to exit this routine and 
list files on the disk are the same as lor 
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saving files. If the variable S. read from 
ihe text file, is set to I the file contains 
commas and colons. These will he 
translated after a file is loaded. This 
does increase loading time. 

Review Document 

(10000 - 10190) 

This part of the program displays each 
line of the document with its embedded 
control codes and the end of line control 
codes. Entry to this section is made by 
pressing 'R' from the main menu. 

While in review mode the cursor up 
and down keys are used to move up 
and down in the document. Should 
you want to move a little quicker the 
cursor left and cursor right keys move 
you ten lines up and down. If a line is to 
be changed you can go straight to edit 
mode by pressing *E\ The menu is 
accessed as normal by pressing *M*. 

The four control codes shown 
below each line of text show the printer 
control codes at the start of the line. 
Embedded control codes show how 
the printing control changes, and 
where, along a line of text or graphics. 



It the text is lo appear underlined or 
reverse on the printer it will be reversed 
out on the screen. 

The screen switches between 
graphics modes and text mode as 
required by the text, should you want 
to check text yourself then you can 
change mode by pressing Commodore 
and shift at the same time. 

Add or Delete 

( 1 1000 - 12160) 

It is possible to add lines or delete lines 
in the middle of an existing document. 
Pressing *A* while in the main menu 
willl bring you to this mode. 

Should you enter this section of the 
program by mistake, pressing 'M\ 
adding 0 lines or adding too many 
lines will all return you to the menu. 

You can add lines in either text or 
graphics mode. When you insert a line 
the line will be empty, enter the edit or 
copy modes to add text in its space. 

You can delete any number of lines 
from the document. Lines are erased 
and existing lines are closed up to 
make the document smaller. 



Copying Lines 

(13000 - 13290) 

This function allows you to copy lines 
from one part of the document lo 
another. If lines are copies beyond the 
length of the document, any unused 
lines between the original document 
arc added as empty text lines with 
normal spacing. 

Merging Documents 

(14000 - 14290) 

Entry lo this section of the program 
allows you to insert a document that is 
filed on disk onto the end of the 
document that is in memory. 

The width of theexistingdocumeni 
will be increased if the file being 
merged is wider than the one in 
memory. 

That's all ihere is to it! The 
breakdown of the program should 
enable you lo alter the program should 
you need it. You should soon be 
producing extremely neat, well laid out 
documents. 

See listing on page 79 



„ NEW! 
WjAMIGA 
INFO MAT 



BirSfreo 




Features 

• All AmigaDos 1.2 Commands in easy ref. format 

• Understand what those dreaded "Gurus" mean. 

• Ideal for use as a MOUSE MAT. 

• Virtually indestructable high grade plastic 

• Approximately 1 1 " by 1 3" 

• Only C4.95(incp&p)* 

(Available soon: MSDOS and Atari ST versions) 

COMMODORE 128 COMPANION 
by Tim Arnot 

• More about BASIC 7.0 than you knew existed. 

• Kernal, Editor & Basic jump tables revealed! 

• Complete memory maps for 1 28 and 64 modes. 

• Detailed hardware descriptions. 

• Lies flat when open! 

• 340 pages 

• Only £9.95 (incp&p)* 

• Add £1.00 tor overseas orders. 
Available from: 



l-C-P-U-G 



the Independent 
Commodore Products Users Group 
is the largest and most friendly 
computer club in the country 



Many local groups with regular meetings 

Superb FREE Newsletter - 80 plus pages of 
reviews, news and information every two 
months 

We support all Commodore Machines old and 
new: PET, VIC20, 64, 1 6, +4, PC, 1 28 and 
AMIGA... 

Free Software Library of public domain 
programs for all the above machines available 
to members on supply of blank disk or tape 
and payment of p&p 

Help and Advice 
Discount scheme 

Subscription only £10 per year (UK) plus £1 
joining fee 



If you are seriously interested in using or programming 
any Commodore computer, then joining ICPUG is a must! 

For full details, send a stamped, addressed envelope to: 



icpl 



ICPUG Membership Secretary, Jack C. Cohen, 



llford, Essex. IG2 7EP 



BitStream Publishing (DeptY) 

26-28 Osborne Road, Southsea, Hants, P05 3LT. 



• 
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A look at what's new on the games front. 



he streets aren't safe but you must cross town to collect 
your girl. You take the subway without any trouble, so far, 
so good, but when you get off the train you're met by a gang 
of thugs and one is wielding a crowbar. 

You move around the screen using standard joystick 
controls and deliver your blow by pressing one of the attack 
keys. These keys are 1 to jump (jump and kick if a thug's in 
range), and 2 and left arrow to attack forwards and 



o ip rrmrr 



HI 50000 



l<3 




backwards. You press the key and the C64 decides whether 
you're punching or kicking. 

Unfortunately, these keys are at the top of the keyboard 
and i he re fore nowhere near your joystick so you're either 
geng to have to practice a lot. buy a joystick that you can 
stick to the table or enlist a friend to move you as you deliver 
i Ik- killing blows. 

If you manage to survive the subway you then face peril 
on I he pier as you battle with a gang of bikers who you must 
dislodge from their bikes before you can beat them into a 
pulp. Wipe them out and you have to face Big Bad Bertha 
and her whip-wielding female marauders, then a scrap in End 
Street with thugs armed with razors thai will floor you with a 
single blow before a final battle inside to finish off this gang 
who also have a gun! 

At each level you have to mash the band of minions 



before the boss appears. Bash the boss and progress to the 
next screen. Complete them all and you have a few moments 
before you start the whole game again, only this time the 
gangs are even madder. 

Renegade adds a new lease of life for the tried and tested 
beat'em up game with variety of opponents and some good 
backdrops. T.H. 
Touchline; 

Title: Renegade. Supplier: Imagine, 6 Central Street. 
Manchester M2 5NS. Tel: 06 1-832 6633. Machine: C64. Price: 
£8.95 (Ca) £12.95 (Disk). 

Originality: 6/10. Payability: 7/10. Graphics: 7/10. Value: 
7/10. 



ow, what a brill game - they were my first words when 
I saw Hysteria. 

You are aware that someone or something is changing 
the past and shaping the future. Millions of light years away, 
three evil demons are playing with the fabric of time. 




YOUR COMMODORK december 1987 

49 




GAMES REVIEWS 



And being a real hard guy you decide to try and discover 
the demons and kill them. While you are waiting for them to 
show their ugly heads, you suddenly get caught up in a time 
warp and find youself in ancient Greece, surrounded by 
ruined temples. There are also busts (no - not Sam Fox) that 
spit at you. and if you shoot these, either a piece of puzzle or 
a lemon (!) will be revealed which can be picked up to select a 
weapon. 

The weapons come in many forms. You start the game 
with lazer eyes, but it is quite a weak weapon. However, the 
next one is the more powerful lazcr arrows which can be used 
to blow away nasties, and thirdly you have the protective 
dog. which isn't rally a dog but a white dot (1 can see the 
resemblance) that hovers around killing any monster thai 
strays into its path. For those tight spots a jet pack always 
comes in handy, and at a pricv four lemons this is good while 
it lasts. 

Last but least there is the wonder weapon, and at a 
modest five lemons this little baby will bring a load of 
spinning death orbs all around you, killing all nasties. 

This game is first class - neat sound, nice graphics and 
very playable. It's a shame that there are only three levels 
though, oh well you can't have it all. K.R. 
Touchline: 

Title; Hysteria. Supplier: Software Projects. Bearbrand 
Complex. Allerton Road, Woo/ton. Liverpool L25 7SF. Tel- 
051-428 9393. Price: £8.99 (Ca)£ 1 2.99 (Disk). Machine: C64. 
Graphics: 8/10. Payability: 8/10. Originality: 7/10. Value: 
9/10. 




ongratulations. Gremlin Graphics, they've managed to 
find a sport that hasn't been done before! Now thanks to 
Gremlin's extensive research you can sample (hccxciiemem 
and end to end action as you take the plunge into Water 
Polo. 

The six swimmers either side start al either end of the 
pool in a race for the ball. Whoever gels it can then swim 
wilh il oi pass it hopefully to another player or try a shot or 
lob at goal. Naturally the oilier side (eilher human or 
computer controlled) try to gel the ball off you bv tackling 
you from [he front as you swim with the ball or by 
intercepting one of your passes. If you try and tackle from 



behind, the poolside referee will get very excited and award a 
foul. Totals of these fouls are stored for each player and 
when one collects three fouls that player is sent off for about 
two minutes but returns before that if the opposition score a 
goal. 

When you manage to score, the game shows you an 
action replay so you can cither bask in glory or suffer a 
replay of an awful mistake. 

The game is actually quite good and is full of end to end 
action and is ideal for those who want to perfect their tactics 
before they head for the swimming pools of Bcnidorm.T.H. 

Touchline: 

Title: Water Polo. Supplier: Gremlin Graphics. Alpha House 
10 Carver Street. Sheffield SI 4FS. Tel: 021-356 3377 
Machine: C 64. Price: £9.99 (CaJ £14.99 (Disk). 
Originality: 7/ JO. Playahility: 7/10. Graphics: 5/ 10. Value 

6/10. 
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ell, on the tail of that groovy game Crazy Comets is 
the follow up in the shape of Mega Apocalypse* But is it as 
groovy? Yes. it's acid stuff, as you play the part of a space 
ace. equipped with a super-duper space craft. 

Your mission is to boldly go where no man has been 
before, seek out new and exciting worlds and then blow them 
to bits. That sounds fair to me as most of the 
inhabitants are stupid creatures such as wclks. 

The wclks do not make easy prey however, and the 
planets they occupy have a will of their own and attack vou 
with siiipj'ihing force. 

In between blasting planets you discover debris that 
turns out lo be quite useful, as you can acquire goodies »uch 
as speed-up and rotate missiles and shields. 

Mega Apocalypse also hosts a two-player option; you 
ban play as friends or enemies, blasting each other, as weil as 
the hostile planets, racing to collect the goodies. 1 discovered 
agood technique u. get hold of the extras, was a shift kick to 
your opponents head - ask my brother! 

Well, plenty of blasting, dodging and collecting, but is it 
worth the asking price? Hmmmmmmm. it's good, but 1 feel 
it could soon become boring doing the same thing ull the 
time. 

And those of you who already have Cra/v Comets, will 
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sec [lie similarities in Mega Apocalypse, excepl of course for 
Ihfl superb speech and improved graphics. K.R. 

Touchline: 

Title: Mega Apocalypse. Supplier: Martech. Martech House, 
Bav Terrace. Pevensey Bay. East Sussex. BN24 6EE. Price: 
£8.95 (Ca) £1195 (Disk). Tel: 0323 766616. Machine: C64. 
Graphics: 8/10. Originality: 5/10. Payability: 7/10. Value: 
5/10. 




hen obscure planets were mined, huge quantities of 
rare materials were discovered, rendering minerals such as 
guld and diamonds valueless. Instead, marble became the 
most prized substance as it was only found on the trickiest of 
surfaces. 

This in turn became worthless as all trade was abolished. 
Instead, the huge mining complexes were developed into 
places of entertainment. 

Despite the usual inane storyline. Red L.E.D. is an 
excellent game. Very obviously derived from Spindizzy via 
Marble Madness, the object is to complete a path across a 
grid. You have three droids of differing abilities and must 
select both the droid and the sector you wish to enter. 

Each sector consists of a huge scrolling terrain of walls, 
drops, acid lakes and the like. Four pods must be collected 
within a time limit in order to activate the exit. Enemy droids 
patrol the area and collisions with these or falling off the 
superstructure results in time penalties. Droid generators 
can be blasted, but then the rest of the droids turn 
particularly nasty and come gunning lor you. 

One of the droids can float harmlessly over the acid 
lakes. Others have to activate special switches in order to 
temporarily freeze them. Other areas can only be accessed 
via teleports. You can improve your time allowance by 
Walking into a time-distort capsule - but make sure that it is 
spinning the right way. 

Controlling your droid takes some getting used to due to 
the built-in mertial system. One of your droids handles 
gravity much better than the others so it obviously makes 
sense to use him on the extra hilly sections. There is a bonus 
game to access and extra men, should vou do particularly 
well, 



Not only does this game look extremely impressive, but 
the gameplay matches the graphics and the result is infinitely 
more playable than either of its ancestors. Very highly 
recommended. C.R.H 

T ouchline: 

Title: Ret/ LED. Supplier: Starlight. 68 Long Acre. Coven/ 
Garden. London, WC2E 9JH. Tel: 01-836 341 1. Machine: 
C64. Price: £9.99 (Ca) £12,99 (Disk). 

Originality: 7/10. Graphics: 9/10. Playahility: 9/10. Value: 
9/10. 



he latest game from Mastertronic is a little on the gory 
side. You play a Rambo-type character on a mission to raid 
a top security warehouse. Getting into the warehouse is no 
hard task but progressing to the fifth level sure is. 

The levels are guarded by all kinds of various baddies 
such as armed henchmen. Hying grenades and balls of fire: 
all of which have to be dodged or shot. To progress onto the 
next level you will have to shoot a huge computer terminal 
where it hurts - in its revolving red sphere (whatever that is!). 
If you are successful, a hole in the floor will open and you 
will fall through to the next level. 

If by a freak or pure luck you manage to get to the tilth 
level you will have to confront a master computer (no, not 
an Amiga) and if you can destroy this you have won the 
game. 

This game has no stunning storyline, no groovy Rob 
J ubbard music and the graphics are pretty average - another 
duff game? Not on your nellie mate, it is really addictive and 
quite frustrating and for a humble two quid you can't go 
wrong. Buy this game or your arms will fall off - need I say 
more? 

Touchline: 

Title: Rapid Fire. Supplier: Mastertronii. 8-10 Paul Street. 
London EC2A 4JH. Tel: 01-377 6880. Price: £1. 99. Machine: 
C64. 

Graphics: 5/10. Originality: 7/10. Playahility: 8/ 10. Value: 

9/10. 
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noi have either of them. In their era these games were 
wonderful, but now at t'1.99 thev still represent good value. 

K.R. 

Touchline: 

Title: Pitfall 1 & 2. Supplier: Firebird. First Floor. 64-67 New- 
Oxford Street. London, WC1A IPS. Tel: 01-3796755. Price: 
£1.99 each. Machine: C64. 
Title: Pitfall 1 

Graphics: 5/10. Originality: 8/10. Payability: 6/10. Value: 
7/10. 

Title: Pifall 2 

Graphics: 7/10. Originality: 6/10. Payability: 8/10. Value: 

8/W. 



emcmber the good old days, when the VCS's from Atari 
were all the rage? You do? Good, then you will also 
remember those fab games in Pitfall 1 & 2. Well, Firebird 
have now bought the rights and re-released them. 

In both of the games, you play the part of Harry, the 
intrepid hero who is in search of lost and valuable treasure. 
In Pitfall I you find yourself in a jungle full of traps, where 
there are gold bars lying around which you find hard to resist 
(understandably!). The gold however is not easy to get at as 
it is guarded by crocs with snapping jaws that need to be 
jumped over, huge holes that open and close, and voids that 
have to be swung across by a vine which requires perfect timing. 

At the beginning of the game you arc given 2000 points 
and these will decrease evcrytime you fall down a hole or the 
like. Scorpians are also a hinderance as these home in on you 
and are quite hard to avoid. Pitfall I is quite a playable 
game, but it is basic. Another point, this game was converted 
from a 16K machine, "so what" I hear you say. Well, it has 
been copied almost exactly, the Commodore has 64K, 
wouldn't it have been better if they looked to improve it? 

There I rest my case; if you haven't got it have a little 
look at it. you might like it. 

Next comes the sequel in Pitfall 2. This is quite a good 
game going by its age. 

Again you play Harry the explorer, but this time it's not 
just the gold you're after, it's your friends, who have got 
themselves lost in a huge underground labyrinth, you must 
also seek out the legendary cave rat and capture him. This 
will also boost up your money. 

When you start off. you are in what looks like a jungle 
( Pitfall I ) but as you make your way across the screen you 
will discover potholes which have to be jumped down to 
reach the underground river which is unfortunately 
inhabited by electric eels. 

An annoying feature of this game is the lack of a death 
system, which seems to be replaced by a number of red 
crosses scattered about the playing area, and if touched by 
any creature you will be transported back to the last cross 
you touched. Sometimes this can take quite a while and is 
always frustrating. 

The music in the game is not bad. The graphics are 
nothing special but I highly recommend this game if you do 



Jit*s been 103 years since Hasrinaxx the Druid wiped out 
the evil being Acamantors, but somehow he has returned. 

It was a cool summer's day in the forest of Argoth, the sun 
shone brightly as a warm breeze filtered through the trees, 
rustling their leaves. Hasrinaxx walked down the beaten 
path looking for some mistletoe which he needed for a new 
spell - Zapper. 

As he walked along, squinting to keep the blazing sun 
out of his ageing eyes he noticed a bush in full bloom ahead. 
Suddenly, from out of the blue, came a wild boar with a look 
of terror on his face. Before the old Druid could react the 
boar was upon him and attacking his leg. Hasrinaxx swiftly 
pointed a finger at the creature, chanted two mystic words 
and an electric bolt hit the boar between the eyes, and the 
boar funs off screaming with pain. As the Druid tends his 
wound with a 'heal spell' he thinks back to the strange 
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occurence that has just taken place, and wonders "whu 
could have gotten that boar in such a state?" 

He paused for a while -he could sense men in the wood 
but there was something else, something weird. 

A huge clap of thunder broke the unearthly silence, an 
the sky grew dark. Hasrinaxx's senses were tingling - h 
could smell something disgusting, the smell of ... dca 
From out of the bushes came scores of humans, dead 
humans - the living dead. One single thought entered 
Druid's head, "Acamartors." He searched franticly in th 
canvas bag lhai held all his belongings and pulled out a silve 
cross, holding it high and causing the zombies to back o 
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into the trees and bushes. Hasrinaxx then begins his long 
walk back to the village... 

Well, that's roughly the story line for Druid II and now 
we move onto the game. 

You start off in the village and come under constant 
attack from zombies and skeletons. You will also find 
various spells lying around which can be picked up and used. 
There are 32 spells and four elementary servants, which is a 
lot more than Druid I. The graphics have been improved 
and the game is much more playable than the first. 

So there you have it. if you liked Druid and want some 
more of the same, get Druid If. vou will not be sorrv. 

- K.R. 

Touchline: 

Title: Druid 11. Supplier: Firebird Software. First Floor, 64-67 
New Oxford Street. London WCL4 IPS.Tel: 01-379 6755. 
Machine: €64. Price: £9. 99. 

Graphics: 8/ 10. Playability: 8/10. Originality: 5/10. Value: 
9/10. 




BISMARCK 



In May 1941 the entire British home fleet (reinforced by 
ships urgently needed to protect convoys) were involved in 
an amazing search and kill operation designed to find and 
sink the Bismarck! 

The Bismarck was the biggest battle ship the world had 
seen and was ready to hunt and kill in the snipping lanes. It 
was to be paired with the Cruiser. Prince Eugen and fight off 
the British warships while the Prince Eugen destroyed the 
convoys. 

The Admiralily sent out the order, "sink the Bismarck!". 

You can play either the British or German commander 
in this deadly game of hide and seek. The German player 
starts North of Iceland and must escape, relatively 
undamaged, off the bottom of the screen and into the open 
seas. The British player must stop him. 

Both players can get regular weather forecasts, 
intelligence reports and can fly reconnaissance missions (if 
the weather isn't too bad) that will help them find the enemy 
and attack or avoid. The British player controls six of 12 
ships (the others are controlled by the Admirality) the 
German only has two (the Bismarck and the Prince Eugen). 
It's going to be a close light. 



Whenever ships meet they can engage in battle which is 
fought in an arcade sequence in which you must select icons 
to control the ships speed to close, retreat or maintain the 
same distance between you and the enemy, fire and aim your 
guns and man the damage control systems to put out any 
tires. 

Some British ships also have torpedo tubes and the 
Aircraft carrier Victorious can attack with Swordfish 
aircraft. 

The British player cannot hope to sink the Bismarck in 
one fight and so must use its lesser ships to inflict as much 
damage as possible so the Battleships have a chance to sink 
it. 

Bismarck is an excellent game based on one of the most 
decisive battles of the war. If the Bismarck had escaped... 

T.H. 

Touchline: 

Title: Bismarck. Supplier: FSS. 452 Stoney Stanton Road. 
Coventry CV6 5DG. Tel: 0203 667556. Machine: C64. Price: 
£9.95 (Ca) £14.95 (Disk). 

Originality: 8/10. Playability: 8/W. Graphics: 7/10. Value: 
8/10. 



DIZZY DICE 

here's something original - a fruit machine game! I 
thought they had died out with the ark. Although after 
playing this, it might have been better if they hud. 

To be sure, the game itself is very slick and looks good on 
screen even if you are not sure what is happening. There are 
lour reels, and winning combinations pay out when the\ 
read either from left to right or vice versa. Reels can be held 
when the appropriate lights Hash. 

Should you manage to light a sequence of six fruits, you 
gel to take part in a dice game, in which you must guess 
whether the next roll is going to behigher. lower or the same 
as the previous one. Gelling into the dice game requires you 
to lose an awful lot of games on the trot as a winning 
combination, e.g. one cherry resets the fruit sequence. 

When you get a winning combination, you can gamble 
your non-existant money although m> strong 
recommendation is to not bother - the odds you gel are 
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terrible. You must select the symbol a spinner is going to 
slop at. If you choose the bar, the odds against it coming up 
are fifteen to one against. The machine pays you six to one. 

Computer fruit machine games fall into the same 
category as decaffeinated coffee or alcohol free beer. Why 
bother? The whole idea behind gambling is the risk that you 
might lose, coupled with the possibility of a big win. Playing 
with non-existanl money defeats the whole object of the 
exercise. G.R.H. 

Touchline: 

Title: Dizzy Dice. Supplier: Plovers, 2 Mineguae House. 
Calleva Park. Aldermaston. Berks RU7 4QW. Tel: (07356) 
77288. Price: £1.99. 

Originality: 3/ 10. Graphics: 7/10. Playability: 2/ HI Value: 

2/10. 
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SOLOMON'S KKY 



needs parallax scrollings. ultra-fast 3D solid 
graphics and super-bouncy, mega groovy music to make a 
decent game? Well, most people seem to, except U.S. Gold 
w ho have converted a highly playable game w hich a few of 
you may remember. It goes by the name of Solomon's Key. 
which was fab in the arcades. 

The story line is concise. You play a treasure seeker 
(aren't we all?) and on entering Solomon's mines. You must 
search through the levelsavoidingall the deadly perils. Your 
main goal is to reach the key on each level and make haste 
towards the door. Each door you go through will bring you 
closer to your ultimate goal - Solomon's treasure room. 

At the end of the third level you go into a bonus room, 
where you are instructed to cast a spell on the key. However, 
it is unclear what this actually means and the instructions 
give away no clues. I'm afraid. 

The screens are littered with objects, but there are too 
many to mention them all. The main ones are flames which 
can be used to fry the little monsters that wander around the 
screen. Your other option is to pull a block away from under 
the monster's feet and watch him fall to his death (yeah!). 

There are also alot of little bells around, which when 
touched, summon a fatrv which you can eat for dinner. Eat 
ten of these and you will get an extra man. plus indigestion. 

Your only real help is a magic wand, which for some 
strange reason makes mud bricks appear and disappear. 



These are necessary to build stepping stones to the exit or to 
trap monsters (similar to the game Pengo. except you don't 
push the blocks). 

I have been playing this game for hours (that's 
interesting to hear: ED) and I'l take it home tonight and play 
it for hours (you've got work to do: ED). 

Well, what can I say. buy this game or it'll be a case of 
spontaneous combustion? Maybe. K.R. 

Touchline: 

Title: Solomon's Key. Suppliers: U.S. Gold. Units 2/3 

Hotford Way. Halfprd. Birmingham* ^ 7AX. Tel: 021-356 

3388. Price: £9.99. Machine: C64. 

Originality: 5/5. Graphics: 7/10. Playability: 8/10. Value: 
9/10. 



ON FIELD FOOTBALL 



O n Field Football is the latest Activision game to be 
re-released as a Firebird budget game. Written by Gamestar. 
On Field Football attempts to capture the essence of Super 
Bowl excitement and fails. 

Four-aside football played between two teams of pyjama 
clad players captures the essence of a poor game. The 
instructions are brief to a point, of not telling you everything 
you need to know and only presents an almost meaningless 
table of plays, formations and the joystick movements 
required to select them. 

If you manage to decipher the table you find an 
extremely limited selection of offensive and defensive 
players and with only four players you barely have the 
manpower to execute them. The quarterback not only 
passes the ball, he also doubles as the runningback and the 
shooter! 

The game also features a computer opponent that will 
pummel you into the ground and leave you wondering why 
you spent £1.99 on a game like this. T.I I. 

Touchine: 

Title: On Field Football. Supplier: Firebird. First Floor. 64-67 
New Oxford Street. London WC1A IPS. Tel: 01-379 6755. 
Machine: C64. Price: £1.99. 

Originality: 4/10. Playability: 3/10. Graphics: 4/10. Value: 
3/10. 
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Easy Count 



A word counter for Easy Script users. 



By M. R Leach 



asy Script is probably the most 
common wordprocessor in use on the 
C64. One Of the main problems with 
the program is that it willl not allow 
the user to perform a count of the 
number of words thai are in a 
document. If you need an accurate 
count then the only way is to count the 
words by hand. Until now that is. 

Easy Count is a program that will 
count the numbers of words that are in 
any Easy Script file. 

The program looks for a non-space 
character, then searches for the next 
Space once the counter is increased. 
If a format or printer command is 



found (i.e. Fl or F3 ) the count is halted 
until a semi-colon is reached or a 
carriage return is found. This does 
mean that all format or printer 
commands which are not followed by 
a semi-colon must be on a separate 
line. The enhancement commands (see 
pages 8.9 of the manual) must not have 
a space between them and the 
following text, or they will be counted 
as single letter words. 



Getting it in 

The program is presented here as a 
Basic Loader and should be typed in 



using the Syntax Checker program 
found on the LISTINGS page. 

When RUN the program will 
automatically execute the machine 
code. 

Follow the on screen prompts to 
use the program. The directory of the 
disk in the drive may be read from 
inside the program. For those 
technically minded the program 
resides in memory from SCOOO to 
$C3EC and is executed with SYS 
492X7. 



See listing on page 84 



CRAZY CHRISTMAS BARGAINS 



NEOS MOUSE + SOFTWARE 

★ (THIE COMMODORE MOUSE) * 

NEOS MOUSE WITH "CHEESE' 
CASSETTE INC. "GENUINE 
CHEESE'' ON DISK = £29.90 

Wfgmore disc version includes genuine 
save and load to disc. 




GENUINE CHEESE" on disc - £8.00 

(including save and load of pictures with fast and slow load.) 
Soon available Geos Compatible Mouse - Watch press tor details. 




ARTIST 64 

(Foi use with Mouse or Joystick) 

This is the mosl sophisticated, 
powerful and advanced art or 
graphics package available on a 
CBM 64 or 128. 

"Artisr 64 is an excellent graphics 
package and we were extremely 
impressed with its range ol capabilities It is in tact probably the mosl 
versatile graphics program that we have seen" 

Your Commodore takes over whore cheese leaves off. Although friendly 
and tun - can be used professionally with over 250.000 combinations of 
commands 

*GIVE YOUR 64/128 - AMIGA TYPE GRAPHICS* 
Full colour working Full screen working. Zoom and Pan Creaieany brush 
fill, pattern or icon Variable Text Commodoreand Epson pnntdumps Add 
other print routines Innovalive colour commands "Over and Under" - 
Icolours weave over and under each other) "Colour Cycling" "Duplicate 
ob|Bcts without certain colours." 

P.C.W. "Artist 64 is a compulsory purchase" Tape or Disc ; £27.50 




If TV IAD IT access P O CASH P a P - UK £1 SO 
1U1t1WIV.IL CHEQUES ORDERS Overseas £3 00 

HOUSE umttzd QHfcr, Eiport and Educational Enquiries 

1)3 Godwin Road Forest Gate E7 02W 01-5o5-3751 Welcome 



I YSiii S mii : 



miUM SOFTWARE HBl 

Cl?4 MM 
0SASE II 

Micti Cirri i Cams Kit drxauiii 
P1U5 SprtattihN) OdUG&K , 

!■.-'■ 

S.lii'Vf pr 28 

ScnaditiMi 120 

I 

lift Outer; 

ta.-miiip iWutcPuawo 
: ivjtiAw 

:iniii-'.;r,;.^.! 



r.6J EDUCATIONAL 



Cud ■<» (Htm (SO 

Fran* tfcWMi a .i >- B irj.-i 
Gnrmn Mao a *W1 l<a£*i) 
U*M 5ha>p li-Sy,) 
•row four <m>< PliO MOyrt *> 



C84 UTILITIES 'GENERA 



l0»tn PUCE! MU SUrm SERVICE 



'0 OGJ 



tig luckajei 



KFYr 
WW 

peoai 



*l* i lull II 

jEOS 1 Open re ty'JH 
(t 8AE^ Compiler 



i- 1 



Lmi 

QuiduIIu Pku 
Quid - ■ustrtJw 



16 Ml 



;.9Si 

1.961 
7«8i 
1951 



If.JS 
19 Ml 

IC Hi 



?; bcc 
N IN 
?7S0« 



III MP 

« MB 

I m 

77 Md 
HS5S 



MEW 



15 9SH 

■ID OOP 

2i 00a 



CM FLIGHT SIMULATORS WAR GAMES CG4 



n tot 

i: 

\t tit 
19 TM 



sag 

*a it M 

Ace C Aca 7 as- 

Aero Jrt ; 5 
Cuoiial Conquest 
EwiTCye- 

(jlK>- Alitor bv SSG iim 
FlS Strike Eagle MM 

r«rdoinr« , w lt m 

.ii i'|i i Hi iaptf»i 1 1 M 14 let 

Pvn ' . n sot 
Reed) for II* 5larc Oy SSG t* DM 

S*y ftl»W 1 50i 00 D(U 

WW Sowee is* II IM 

UflAAFUySSi rs :-Di 

laa itJH 

W* Gamn Cortstnxtcn &ei if, jje 

I - inhm tape d - ■ 



L- -Ji-k 

Cwtfmlf ol the Curtn 
Gulp ol Therm 
mid fe Eagltt Uni 
Killro Until DM 
ttuiro ol Ur Uitivo-c 
MoonmiEi D> Inlocom 
HuiIr on Ail jit. c 
5lia3i"mi ol MoiOoi 
unna ill \So*tm 
I) lima IV 
VwEVu MM 

Imt&m d» iwocom 



CG4 ACTION (.AMIS SPORtS 



i. ill Intnj GaTti 

EiqCr. -I- 
E|i«i HEW 
naem Bowl •Vonc Cum 
lad Hint* 
Liwrg Oaylian^ 
Piper fk>( 
Head Rdnar 
Star Glide. 
Ten Hi frmr 
Mi 

n*r Sou j Ut» 

i'. :■ 

lilB 

Cut Hers 
EC ClMMi 2 
Fiii lie Knighi 

' ■ ■'" ■ ■■ ■ . . Hi* 
Faiier ttaf 

liCOCCv 000 

Spin-. . 

ACE II 
BiOf Heaa 
WetCfit»(y 

C-U loi Mncerwf 
tens Nova 
Winici twin 

C • BOM ennrrlii- 



II m 

IS MX 

IK I ISO 

Up nsia 
• Mi irasi 

M 151 near 

Nasn 

ii. :,i 
"SI 17 9K 

Jim 



IW IIJM 
I Ml I MM 

I7il IIMI 
IZSl IUM 
T«i IMS! 
TM 1MM 
IM I MM 
II ISI 
7S9I 12 ilk 

it m 11,001 

•Ml II 9&I 

iziai now 

1.501 l!5Cd 
TODi 



0501 

S 



| urn 
mot 



im 



am 

:, mit 



SPECIAL PRICES ON FLIGHT SIMULATORS 
JET Ite Dnllianl new FI6. Fl 1 ! F>ghto> S<rr>ulaiOi C64 OUc only £33 
FLIGHT SIMULATOR II wtoout HouOl me> Mil FligH Smulala on ihe CM 
* * * Casielle/DiK £33 * * * 
SCENE BY OISCS San Fiancisco oi Japan— only £16 aach 
Pipaw wna *iamp loi our new l>»i (stale mrri^n compuier| & "II Ol ipeoai ollrjrs 
Please include 50p 'o' Po»l anc Packing tor all o-oers less man WO Outside UK please includa 
t* plui 'Sp lor eacri aodihonal ilom on ail oros'S Send Cteque Eurocneaue. Sienmg money 
order or UK Po«lal Order wiin order lo 

po box 1H UK SOFT CENTRE LTD (YC) - telephone 

TEL (3d MRS) CANTERBURY (0227) 459608 



CANTERBURY, KENT. CT2 7XG 
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Keep up to dale with what's on in the communications 
world with David Janda. 



^4 s I write, the PCW show iscoming 
to an end. There was nothing new, 
comms wise for the C64/ 1 28, but there 
were several new developments with 
regards to on-line services. Both 
Compunet and Micronet were at the 
show attracting new customers and 
showing off their latest features, and in 
all it was an interesting show for the 
comms enthusiast. Let's have a look at 
what was on offer. 

Gateway Developments 

Micronet is developing new gateways 
to and from its database. In simple 
terms, a gateway is an electronic link 
between one computer and another. 
Shades. Micronet's Multi-User 
Game (MUG) is an example of a 
gateway, and Micronet's announce- 
ment of a scrolling gateway is a 
development from this. 

The scrolling gateway enables 
users with dumb terminal software to 
use scrolling types of services via 
Micronet. Going back to Shades, the 
output from this game is converted 
into the viewdata format in order to be 
displayed on the screen. The new 
scrolling gateways simply remove the 
conversion process and leave the 
output as text on a plain background 
with no fancy graphics or colour. 



Technologically speaking this is no 
big deal, and begs the question, why 
have scrolling text when you can have 
viewdata? 

Well, some applications such as 
using Telecom Gold via the Interlink 
gateway are best suited for scrolling 
tvpe displays. Micronet are developing 
a scrolling gateway for Interlink users, 
hui this shall not be ready before 
Christmas. 

The first scrolling gateway should 
already be in operation and is for 
Shades players. Users will be given the 
option to play Shades in the standard 
format, or with scrolling software. 
Apparently, there is a speed advantage 
to playing MUGs with scrolling 
software. 

Andy Waller, who runs the 
excellent Soley Sixty Four ('SSF£) 
area on Micronet has developed a 
stand-alone scrolling package for 
C64/I28 users that can be downloaded 
from his area free of charge. This will 
be compatible with the Commodore 
modem, OEL comms pack, multi- 
modem and Mustang software, and 
will display blue text on a white 
background. The idea is that you use it 
to log onto Micronet and go to the area 
where the scrolling gateway is. The 
software will automatically detect 



when the gateway is being entered and 
will display 40 columns by 24 lines. 

Let's Chat 

Micronet are also working on a 
conferencing system. The idea being 
that you go to a particular area (called 
a centre), meet in the reception area or 
bar, pick up a key. go to a room and 
have control over who can and cannot 
enter. You can even pull down a shade 
thus preventing anyone from knowing 
who is in your room. Of course there 
wiH be commands such as lock, close, 
etc to enable you to do all this. 

Teleconferencing is not a new idea. 
British Telecom operate such a service 
whereby several people can have their 
phones 'linked*. American databases 
such as the Source and CompuServe 
have them as well. It is important for 
Micronet to ensure easy use of the 
conferencing system, with simple, 
clear commands to operate it. The idea 
of a conferencing system is for a group 
of people to meet and discuss, and not 
get bogged down in the technology of 

the system itself- 

1 understand that the system will 
also have the option of being accessed 
by a scrolling gateway. 

Both the Shades scrolling gateway 
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and the conferencing system will be 
chargeable services, but these have not 
been fixed yet. 

Commodore Modem RIP 

Compuncl have a problem -they have 
no modems! The Commodore modem 
is no longer in production and 
Compunet Telcservices have run out 
of slock. Currently they are looking 
for an alternative modem for C64/128 
users, and it's my belief that they or 
Ariadne Software (who wrote the 
original Compunet Terminal software 
for the Commodore modem) will 
develop a software patch to be used in 
conjunction with the Miracle multi- 
modem and Mustang software 
packages. Compunet hope to have an 
alternative by Christmas. 



New Look Compunet 

Compunet is now running on its own 
mainframe which reaps the benefits of 
a system which is much faster in 
operation (although not as fast as 
Prestel/Micronet). The system is 



having a bad case of teething trouble 
but this should be sorted out in time - 
there is still a long delay when initially 
signing on, and more often than not I 
have suffered the 'Sorry, all links to 
Compunet full' message. This is no fun 
expecially when it costs 4.4p plus VAT 
for the phone call only to be greeted 
with that message! 

Compunets MUD and FEDERA- 
TION MUGs are not operational 
either, but all should be in order by 
Christmas time. 

Do not despair - not all is doom 
and gloom. The speed increase has to 
be believed, and when I tried out the 
system there were very few of the C, N 
and S type errors that were common 
on the old system. Party line is now so 
fast that the special scrolling software 
is being given away as a free link. This 
is because the text scrolls by so fast that 
you need the buffering in the software 
to look back at what has just 

whizzed by! 

A new development from 
Compunet is that by Christmas time (a 
popular date it seems!) both the Amiga 
and ST will be supported 



Concentrating on the Amiga: the 
- software to access Compunet will cost 
'.'19.95. It makes full use of Intuition, 
with a windowed mouse operated 
display, pull-down menus and point 
and click gadgets fur commonly used 
functions. 

Finally, the pricing structure for 
Compunet has now been greatly 
simplified. There is the standard 
subscription which costs £12 per 
quarter, and gives you limited access 
and not as many privileges as the Gold 
subscription, which costs £15 per 
quarter. In addition, for an extra £3 
per quarter you can get unlimited off- 
peak access without the additional 
network change. Obviously, the Gold 
plus unlimited off-peak package is 
going to be attractive for those whet 
would like to use the system on a 
regular basis. However; for those who 
would like to test the water a Standard 
subscription is ideal, and you can 
upgrade to Gold and request 
unlimited access online. 

Well, that's it for this month - I'll 
be back soon with some more 
communications chit-chat. :i : 



YORK ELECTRONIC RESEARCH 

Commodore 64/Plus 4 Products 

6502 ASSEMBLER 64/Plus 4' tape/disk' £12.99 

A sophisticated two-pass symbolic assembler and text editor 
which supports tape and disk filing. The assembler, the editor, 
and your source and object code may all be resident in memory 
simultaneously, facilitating rapid and interactive code develop- 
ment. Recently extended manual with many examples. 

ZflO EMULATOR/CROSS-ASSEMBLER 64 only disk £12.99 

A unique integrated Z80 development package. The emulator 
compiles Z80 source code into optimised 6502 which runs on 
the 64 at approximately one sixth the speed of a 2MHz Z80. It 
supports all but 20 of the 688 Z80 operations, calls to 6502 
routines, and interrupts. The cross assembler generates hex or 
binary Z80 object files. The disk also contains a powerful editor 
and several example programs. 

BI-DIRECTIONAL RS232 INTERFACE WITH 
COMMUNICATIONS SOFTWARE 64 +4" . . tape/disk' £29.99 

The 64 KERNAL supports RS232 via the user port This interface 
provides the necessary voltage conversion for direct connection 
to RS232 printers, modems and other devices. It is compatible 
with Easyscript and Superscript. The unit is supplied with 1 
metre of cable (add 75p per extra metre") terminated in a 25-way 
male (or female*) D-connector. The software includes a 
terminal emulator which supports split baud rates and auto-dial, 
file transfer utilities, a menu driven port initialisation program, 
and a transparent printer driver which vectors the KERNAL to 
redirect device 4 printer output to the RS232 port. 

"Please specify. 

Prices are fully Inclusive. Overseas orders add £2.50 
Allow up to 1 week lor del I very 
Manuals available separately £1.00 

YORK ELECTRONIC RESEARCH 

The Flshergate Centre. Dept YC, 4 Fishergate. York Y01 4AB 
Telephone: (0904) 610722 




BINDERS 

FOR YOUR VALUABLE 
COLLECTION OF 

YOUR COMMODORE # £5.95% 

MAGAZINES i '"c ■ 

"SMART 'EASY TO USE %f *£/ 
■TOP QUALITY 



To ASP Readers Service. PO Box 35, Wolsey 
House, Wolsey Road, Hemel Hempstead, 
Herts HP2 4SS (0442-41221) 

Please supply.. ..Your Commodore Bfftderi tS.95 inc. PAP 

To '" i * (Pleaae m.ke cheque* payable to ASP Lid.) 

Yean Required I9i. . , 188. . , 1«B. . .IftB. . 



Name 



AdOree* 

Pleeee allow 21 dayi lor delivery 
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Hi V AMG*.„ 

NOW yOU DON'T HAVE TO BE A BANK 
ROBBING BANDIT TO AMMAN AMIGA! 





AMIGA ASM 



IMegDisk Drive 4096 Colours Stereo Sound 
Built -in Speech Synthesis Multi-Tasking 
WR& TO Public Domain Disks Worth £3995 
^Fffl AmigaHandbook Worth £795 
VREE-DetuxePaint Worth £24-95 
FREE - Mouse Mat Worth £755 
i FREE TV Modulator Worth £24 95 
FREt Karate Kid JZ Worth £24 -95 
-Amiga Tutorial Disk 





AMIGA 2000 



GORDOfr 




'OA EXTERNAL 
DISK DRIVES 

OMMMOREtMet £2<t995-SAVE0VER 

70NN.W. 

urn 

DUALPACKDi 
Amiga A500 AND 



\m eXTra JMeg.internal Drive FREE 
(phone for defalk) 

AMIGA SO FTWARE 

l' 1 ' 6 ^^""-] andmanymore 

A/ ways in Stock - Phone Mow 

AMIGA PRINTERS 

CI71ZENQ0D 

low Cost NLQ Dot Matrix Printer 
2 tear Warranty 
CM and Amiga Compatible 



Tier 

#11 



£399 



B 

£32 



Hf Colour- Medium Resolution 
Plugs Straight ln(To Amiga And 



\\\^y\.\Xj\J\J\J Tilling FocMtyStrndtoailabie 



mtor 



HfiRWOOD is^-^ggsgs 

HARUUOOD y-jg^XjffgSS^ 

f> - . AAV r|i ftoVS &36MonfhftP TERMS AVAILABLE 

l Of V V* Alt Prices Include VA7 Postage. And Are Correct At Time 

V Vf 1 DEPT YC of Going To Press E&OE Offers Subject to Amiability 

69 - 71 High Street fllfreton Derbys T€L 0773*6367 



SEIK0SHASL80 At 
2<t Pin Dot Matrix 
Perfect letter Quality 
Single Sheet Paper Loader 
t6K Buffer 

Ideal for Wand DTP - 

SEIKOSHA MPI300 A I 
Extremely Fast 300CPS 
Dot Matrix Printer &NLQ phQQ 
Single Sheet Paper Loader 4yt* %ac 
70>lourKit Available . Mtfi (to 70 *-° J 
tOK Buffer S**^ 
RS232 Interface as Standard 

All printers are 

Supplied With FREE CONNECTOR CABLE 
(please specify computer) 
Friction AND Tractor Fed 
Epson IBM Compatible 



Official Commodore Business Centre 



Ftsturvs . . . 

* Extremely compatible 

* Xcellent value 

* Compact size 

* Extra reliable 

* Low noise 

* External 8/9 switch 

* Rave reviews 

* Attractive appearance 

* Turbos, no problem 




I A SUPERB 
BUNDLING 
OFFER 
superb bundling offer 
at combines the 
Itlcelly acclaimed 
tcelerator+ with the 
per sophisticated GEOS 
wraphic Environment 
Operating System) GEOS 
is the GEM-like operating 
system for the 64 128 from 
which you can access 
geoPAJNT a full-featured 
graphic workshop 
geo WRITE an easy-to-use 
WYSIWYG word processor 
and the Desk Accessories 
which include Calculator. 
Notepad Alarm. et< Many 
more extension-; are 
available such as 
geoCALC. geoDEX, etc 



This package normally retails 

<£49.95 

Put you can obtain it 
absolutely FREE with the 
purchase of ah Emeleratcn * 





wish the 



C_ _ . „ I „ . i i 




■ luroos. no proDiem 

» One year guarantee 

* Runs cool 

* +Direct drive motor 

Excelerator f 
and GEOS 

£159.95 



Excelerator + 
and GEOS, PLUS 
Freeze Machine 

€179-95 



my only complaint was 
that the label on the front of 
the drive was put. on crooked ' 

V RUN 64 

The Excelerator behaved 
admirably throughout It does 
exactly what the 154 I does 

Commodore Un 

The E«celerator+ though, 
seems to cope faultlessly with 
commercial software 

Popular Computing Weekly 



out two years ago 

Commodore Computing lm 



I d rather buy an 
Excelerator- than a 154 1C or 
a 1570 or a 1571 

ZZAP 



r 

M 



the drive does have 
dramatic improvements over 
the 1 54 I in quality and 
reliability 

COMPUTE) i G»r« 



We guarantee that this drive is MORE compatible than t 



Your 64 could look 
like this for Just. . . 

€19.95 I 



i # 



a* 



6» 

3* 



i. 



CO 
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A stylish modern replace 

^^^^ meni case for the CBM 64 of which 

™-" your Commodore magazine said 

Fitting the case is simplicity itself and should present 
no problem to anyone with even a rudimentary knowledge 
^13^"" of how to hold and use a screwdriver " 

The Slimline 64 case is a vast improvement on the old style It not only 
looks nicer but does make it a lot more comfortable in use My only question is. wny 
didn't someone think of it before' 




Available from good computer stores or direct from Evesham Micros 

Pwewnciudc VAI Delivery FREE Eveiham 

Micros 

63 Bridge Street 



Send cheque PO tw ACCESS VISA deifliis 
Or phone with yuu' ACCESS VISA No 
Same day despair h whenever pmsiDle 
Govt educational & PtC orders ,K<epted 
CdHer\ welcome open 6 days 9 iO S 30 
Next day delivery €5.00 extra 



Evesham 
Wore* . WR 1 1 4SF 
Tel : (0386J 765500 
Telex: 333294 EMICRO 
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Ultra compatible . 
Very quiet 
■ External 8/9 switch 

• Direct drive motor 

• Handles disk turbos 

• Doesn't overheat 

• Compact size 

• Super reliable 
•Year guarantee 

Great value 



I 



Don't buy a 1541C when you 

■ can buy this compact, reliable 
& modern drive lor less moneyl 




i 
i 

J 



GUARANTEED 

MO RE compatible than 1541C 

SEE RAVE REVIEWS 
IN ALL THE MAGS 

One reviewer said, "the only thing I 
could find wrong with It was that the 
sticker was on crooked". 



T 1/1/ O f=>U FlO-iAS 



SPECIAL INTRODUCTORY 
PRICE 



£ 759.95 



2 



OPTION 



COMBINATION OFFER; 
Eicelerator* 
A latest Freete Frame 

£179.95 



'P ro cfcj c ts, 



it v. y .y ■ 



PRINTERS FOR 
, BUSINESS 



I New LOW price I 
f'ncludes 2 Spare j 

ribbons FREE? 

(value £ 13. 9Q) 



DISK NOTCHER. Double your 
disk capacity, allows you to 
easily & accurately cut a 
seconder u- protect nolcn 



E4.95 



^9 . 



ahis is the class printer in it's price 
;alegory. The perfect choice tor 
iCommodore owners bocause the 
interlace is changeable. So buy 
with Ihe 64/128 carlridge then il 
you change computer at a later 
date just buy a new cartridge! 
In a group test with other popular 
printers In the price category such as 
Epson, Citizen & OKI What Micro descr- 
ibed the ::VSP\ as "THE ROLLS ROYCE 
10F THIS GROUP". Why settle tor less? 
(Amiga users order with parallel cartridge, 
price Includes cable). 



■Auto single shoot 
leed 

■ Tractor & Friction 
feed 

•"Front Panel" 
mode selection 

•Interchangeable 
l/face cartridges 

• Double & Quad 
height characters 

• Low cost cut 
sheet leed 
•Suporb "NLO" 



■SPECIAL OFFER: 



PRICE NOW INCLUDES DOLPHIN COPY 



POWER PACK. Replacement 

power pack to suit '84 E 24.95 

AZIMATE 3000. Check and 

adjust CBM cassette head alg- 

nment. Easy to use — ™ ED. 95 

MOTHERBOARD. 4 slot with 
either all upright or with one 
straight thro' for modem UM, 
please state type when 
ordering,., ._ t^o.uu 

XETEC SUPERORAPHIX. 

The best Centronics iMaee lor 
64/128. 6K bufler downloadable CQ 
fonts etc very good - *• OS.tf o 

DATA RECORDER. CBM 
compaiiDie type. Same 
performance etc. as C2NM531 

out choaper and wilh pause fc^fl.tfa 

1541C DISK DRIVE. We will 
sell you one but why not buy an 
Exceieralof. less money •"•L-qq 0 c 
many advantages - ^loa.MD 

We have ■ good stock of 
Commodore related equipment. II 
you don't sea whet you went 
please give ue e call 



THE EFFECT IS sTAqGErINg- 



The established standard MraW operate system lo. the 64> i2S and i54i oak Awe Now .n use 
with most of the lop soltware houses including Gremlin. Software Projects. Thalamus, CHL 
Alllgsla, Superior etc. etc. as well as many of Ihe top mdependani soiiwa-e p-ogramrners 
The speo'd arc elfioency U Incredible. who would believe thai the num&e o-d t54i 0OUtdJ»d»« 
blocks in lass than 3 sacs It 4 cornpa&bte w-lh ihe maionty ol commercial sotrwa-e and HIM 
switched out when necessary One of the real pleasures ol usmglhis system s io „se » «n 
likes 0' Easyscnpt & Superoase 10 speeo «P both the r*»r mat load, ng and ihe NquMa lines 
It is important to point out that th>s is achievec lata standard CBM &th formal and noi a spec-at 
system, there'ce you can stilt use yni" exisn-g dsks 

INSTALLATION 

Fining involves lining two sub assembly boards, one m the 
64/128 ard one m ihe ;Sat Normally these just plug m Out 
some '64s need a small amount ol soksenng 

EXTRAS AVAILABLE 

User potl expansion card — - " 

Kernel lor '128 In '128 mode "e^S'Se 

Second drive assembly.-™ -...E44.B5 

Dolphin Copy (selection ol copiers includes very powerful 
nibbier, extra last unprotected end selective nle) C 7.B6 




Some 



I -'SAVE IKS?, 5 ; no '™' (PHG) 
•SAVE aXJda! \ no "nel (SEQ) 

•Exira B4Qir° n * P'' n 'er 



AMIGA 500 

In StOCk |* 0 uetwrpri»> £469.00 

pt>c» include* OiIuid Paint Silrm Sw.*«, On 
on One l« »imll»r) ft 5 Ol*ka lull ol demoi SIC 

Philips CM8833 /stereo) 
Monitor to suit A500....E 279.00 

(Price includes cable lo suit ) 
BCiy both loonihor lor F 73il 00 





25 bulk packed DS/DD disks. 
With sleeves, w/p tabs and 
labels. Good quality 8> fully _ -n 

guaranteed ....... E 13.95 

25 disks * boi. Disks ■■ 
above plus 50 capacity locking 

storage Do* _ - *• 

25 disks * box. As previous 

otter but with 100 capacity lock- _ . „ 

Sbox. A vary popular oner.-.- *> *f*l.»0 
capacity boa. High quality 
lockable disk storage. Smoked 

perspex top _ *- iQ.tfD 

100 capacity boi. Larger 
capacity version o' above..., *• 1 



In Australia contact: Micro Accessories of S.A., Unit 8, Hewittson Rd, Elizabeth West, S. Australia 5113Tel: (08) 287-0191 



•Freeze... 

Totally umtoppable Freeie 
facility from Ihe origlnatari. 

•Fast Save... 

Save* In ■< little ai 15 lec- 
ondi. Nothing Hit can 
milfh 1M1 

•Multiple Save... 

Make ai in a Hi ia*ci at you 
* an I one* rroiin, In 
different itjle* If you with. 

•Ultra Compact... 

The moil efficient ciim- 
pacter? Our leiu Indicate 
thi!, ai many ai S-e iamei 
per disk, 

•Game Killer... 

Incorporate! an effective 
routine to dliable colllilun 
delecllon. 

•Independant... 

BVfln produce! aland alone 
Laier filet thai reload In ai 
lililcai isiecondi. 

•Ease of use... 

Alway* a lining feature, 
now even more enhanced. 



-Multi- Load... 

Standard cartridge handle! 
many game* of Ifcli type. 
With Ihe utility dlik even 
more! 

•Fast Format... 

Format! your dliki In aboul 
12 second*. 

•File Copier... 

Built In rail cupler handle! 
fllei up to 241 block) long 
and li really eaay to uae> 

•Two Fastloads... 

A normal dlik turbo at 3-7 
■ imei normal PLUS Ihe 
ailoniihlng Later al 10* 
limci normal.,. BUILT IN. 

•Selectaload... 

Juil uie cunon to icroll to 
Ihe program you want and 
pren a function key. 

•Reset... 

Bulll In. io you can enter 
pokei Tor mure llvei etc 

•Tape Turbo... 

For quick aa*e/ reload on 
lape. 




Now with.. 
"Single part 
save" 

Includes.. 

"Freeze 
Frame MkV 
& Lazer II" 



I CHILLS THE REST! 

I "...far outstrips 
| the opposition on 
J both price and 
/ performance ..." 

/ Commodore Review 

I "...the most 
exciting and 
lightning fast I 
have ever used..." 

Cnmmodore Computing International 



This Is iho latest and mosl elective backup cartridge trom Evesham Micros, the originators. It's speed ol 
operation is the staggering feature. Imagine being able to SAVE & feLOAD your favourite names in as Utile as 10 
seconds and no more than 18. No other 'device*" can remotely match these figures.. .remember these facilities are 
built in Buy Ihe "Freeze Machine" and see ii perform, it you don't agree thai It is the mosl formidable cartridqo 
available return it within your statutory 28 days for full refund, we are that confident. 



ONLY 

£28.95 



UPGRADES 



Mkl. II, 
MKIV.. 
Lazer.. 



111,1 



B....E 19.95 

e 7.95 

£ 2.00 



SB 





Freeze Machine Utility Disk V3.0 



Laiesl version ol Iho disk lhal complements Ihe use of Ihe Frttl* 
Machine. Include* well over 30 routines. Allows in* complete translei 
to disk ol many programs thai load extra parls as the same prog- 
resses (tho one* the standard cailrioge cannot handle). Includes many 
ol Ihe lat.al popular titles Ilka Last Nlnla & Gunship plus many 
standard*" llko World Games A Supercycle. Avery uselul add-on lo 
your Fnreie Machine. 



Upgrades: £2. 00 



ONLY £7.95 



DiscDisectorW.O. 



Our highly popular fast load/save plus utility cartridge 
has received many favourable reviews. 
•FAST LOAD (5-7 limes faster) 
•FAST SAVE (5-7 times faster) 
•FAST FILE COPY {up to 248 blocks) 
• RESET BUTTON (unstoppable) , llll(tl 
•DRIVES CENTRONICS PRINTER a**" ""• 



•FAST FORMAT 
•FAST DISK BACKUP 
•EASY DOS COMMANDS 

• HELP MENU 

• 128 COMPATIBLE ("64 mode! 



''"'"liimii"" 



/ 1541 Quiet Stops 

Cures the dreaded 1541 drive "hammering"|i 
•EASY TO FIT 
•DETAILED INSTRUCTIONS 

•ONE KIT OOES TWO DRIVES 0^1 \ 

•HELPS PREVENT / r A P5s^ 

ALIGNMENT PROBLEMS \ ^ 

Not suitable for "turn lever" type drives "^-""""^ 



Our well established and extremely popular 
disk backup/utility package. The powerful 
nibblers can produce backups of most 
protected software. Also includes many 
oarameters lor difficult to copy software. This 
latest version w>il handle many titles by 
Hewson. Ocean. Domark & U.S. Gold that 
rival products can not. Beware of American 
a German copy programs lhat will noi hands 
the popular British titles. 

INCLUDES THE FOLLOWING 
•EVESHAM 3 MINUTE NIBBLER 
•EVESHAM 8 MINUTE NIBBLER 

• MANY PARAMETERS (the vital code 
lor the protection schemes) 

• DUAL DRIVE NIBBLER „„„.,.»„„.. 
•MENU MAKER 
•DISK ORDERLY 

• DISK RESCUE 
•UNSCRATCH 
•DISCMON* 

• ETC., ETC. 
The whole package is easy to use and menu 
driven. Works with '128 in '64 mode and most 




THE Tape Backup "device" 

Many thousands o' this popular product have been 
sotf and still sales flourish Why? We think Because it 
is the best produci of it's type, li consists o< hardware 
and softwa/e and uses a unique method, controlled by 
e software, that will allow you to make a perfect 



backups of your tape software 

•EASY TO USE 

• VERY SUCCESSFUL 

• USES TWO CBM TYPE 
DATA RECORDERS 



/ 1541 Physical Exam 



/only \ 

(£i9- 9 y 



''■limn'" 



Does your 1541 sutler from... 

ALIGNMENT PROBLEMS 

2 S P y°% ^ M . :hlS package. Contans digital alignment 
ask and drive fault d-agnosis software mat allows you 
to both check and correct Head alignment 8 speetf 

• CHECKS ALIGNMENT ..■.-•«■•"■. 

•CHECKS SPEED 




routines 1570V1 compatible 
with E*ceterator+. 



Perfect operation 



All prices INCLUDE V AT. . 

Mow 



jr only 

■ CHECKS BELT & CLAMPING /-nfl 0 c'" 
•DETAILED INSTRUCTIONS ! £j"* 9 $ 
•INCLUOES QUIET STOPS * 



>ve»ry. N...t <*eay <*e»llve>ry CS.OO o.Irn 

o order 



Send cheque.. P.O. or AccesvVisa details F\ZO«;hrt e-»-i 7 i ar 

By phone with Accm Visa no = Si , d "OS, 

Governmenl, educaiwnel A PLC oroers welcome &3 Bridge Street r^- 

Same day despatch whenever possible ... t=VOSn3m \ J 

Callers wilcom*. open S tfava » 30-5 30 ° KfSfz* W R 1 1 "SfF \* 

TELEX: 333194 emicro TEL: (0386) 41989 

TELEX: 333294 EMICRO 
Also at; 1756 Pershore Rd„ Cotter idge, Birmingham 830 3BH Tel: 02J 456 4564 
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Budget Calc 



Keep track of your money with this budget program. 

By Simon Phillips 



B 



udgct calc is a budget utility based 
around two spreadsheets. The first 
contains the actual monthly figures, the 
second contains the estimated figures. 

Budget Calc is split into several 
sections, the main program, review 
program, end program, changing subjects 
and changing months. The first three 
RUN automatically, and interact with 
each other. The last two programs have 
to be LOADed separately. 

Changing subjects and 
months 

Budget Calc has the capacity for 16 
subjects, and these can be changed to suit 
the user. The subjects are stored in a 
sequential file on disk, the same for the 
month order. Each of the subjects must 
be no more than 12 characters in length. 

For different people, financial years 
change. With Budget Calc, you can have 
your financial year from Jan to Dec. 

When LOADing and RUNning 
Budget Calc, you will be asked for the 
present month, this is for the printout, file 
purpose, and the advance year facility. 
The program compares the month with 
the start of the financial year, and if they 
match, then the year is updated. Once the 
space bar is pressed, data is loaded. This 
is in three separate sequential files. The 
first data is the actual and estimated 
figures, along with back-dated figures, 
in the "budget data' file. The second data 
is the subjects. LOADed from a file called 
'budget subjects: The last is the month 
sequence. 

Once the red light on the disk drive 
goes off. a command window is printed 
at the bottom of the screen, and the 
spreadsheet window is displayed in the 
upper and middle of the screen. The 
window is moved around the spreadsheet 
by using a joystick in port(No.)2. Pressing 
the fire-button and moving the joystick 



left or right will cause the large cursor 
10 move through the five commands. The 
cursor has a wrap- round feature, and the 
inverse command denotes which mode 
you are in. Pressing the fire-button will 
execute these commands. They are: 

REVIEW, MOVE, AMEND, END, 
ACTUAL/ESTIMATED 

REVIEW 

Further LOADing is required for this 
function and this is done automatically. 
Once LOADed, a menu screen is printed 
and five options are given: 

Review months; 

Review subjects; 

Review totals graphically; 

Review profit and loss; 

Return to the main program. 

The first two options allow the user 
to review figures back-dated by three 
years. Once these options are executed, 
only half of the months or subjects are 
displayed. By moving the joystick up and 
down, access can be gained to the rest of 
the figures. Pressing the fire button will 
display the menu once again. Review 
Totals displays graphs of the past and 
present annual totals. There are two sub- 
routines for this option. The first is for 
totals not exceeding 4000, and the second 
is for totals greater than 4000. 

Pressing the fire button will return 
you to the menu. 

Review profit displays the spread- 
sheet as a grid. After a couple of seconds 
boxes will be coloured either red or 
green. A red box means that at that 
position on the spreadsheet the actual 
figure is greater than the estimated one, 
and so is classed as a loss. A green box 
means a profit and that the actual figure 
is lower than the estimated. No doubt 
there will be a lot of red boxes at the end 



of the grid because there are as yet, no 
actual figures. Pressing the space bar will 
return you to the menu. 

MOVE 

This command enables you to move 
around the spreadsheet. 

AMEND 

This command is used in conjunction 
with the 'move' command. It is used to 
change, add and correct figures. Use the 
move command to position the entry 
place on the screen. Enter the amend 
routine and press fire. Three reverse 
characters will be displayed in the top left 
hand corner of the first figure. This is 
now your cursor and you can move it 
around the four by four square of figures. 
Simply type in the new figure (only using 
three characters) and then press 
RETURN. If you have made a mistake 
in keying in the new value and you have 
not yet pressed RETURN, then type out 
the figure again and it will be printed over 
the mistake. If you have made a mistake 
and have pressed RETURN, then you will 
have to go through the routine again. If 
at any time you want to get out of the 
amend routine then press the fire-button 
and you will return to the move 
command. 

END 

After selecting this command, the 'bud 
end' program will be LOADed and RUN. 
The program docs not need any explana- 
tion of how to use it. It allows the saving 
of data, and the process of making hard 
copies. Data will only be saved if: -(a) 
figures have been altered or added, (b) the 
advance year facility has been executed. 

Printing is straight forward, and if 
you have not switched the printer on. the 
program will tell you to switch it on. you 
can return to the main program or end 
which will result in a cold start of the 
computer. 
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ACTUAL 

This displays the spreadsheet you are 
viewing. There are two spreadsheets, as 
explained. The word 'estimate* replaces 
'actual' when the estimated spreadsheet 
is displayed, and visa-versa. This is 
displayed cverytime you use the spread- 
sheet, so as not to get confused when 
amending figures. All of the above 
commands are available in estimated and 
actual mode. 

Getting Started 

When starting off with Budget Calc only 
the listings presented here will be nn disk. 
The data files have to be create. before 
any of the program will function. Thee 
small programs BUD DATA CREATE, 
BUD SUB CREATE. BUD MON 
CREATE are those that I actually used 

when wanting to make the individual 
files. 

BUD DATA CREATE 

This file will create sequential data for' 
BUDGET DATA on disk. This is the 
longest file that has to be made. 

The variables have the following 
meaning: 

SR year advance status 
CM present year - 3 
YS(a) dim of estimated figures 
HS<a) dim of estimated figures 
SR.SS.SU are strings which contain 
last three years monthly totals. 
BA.BB.BC are strongs which contain 
the last three vears subject totals 
GT(I), GT(2). GT(3) contain the last 
three years actual totals 



BUD SUB CREATE 

This file will create the data for BUDGET 
CH$(a) is a DIM containing an 
unpadded string 

NB and NC contain the number of 
spaces needed to pad the start and end 
of the siring. 

BUD MON CREATE 

This will place the data for the file 
BUDGET MONTHS on disk. 

The variables M$( 1) to MS( 12) simply 
contains the month names. 

NOTE The above are only needed when 
creating the files for the first time. 



BUDGET CALC PROGRAM 
DESCRIPTION 

LINE DESCRIPTION 

100-420 Printing of screen and input of present month. 

430-480 Dimensioning variables and strings. 

490-500 "Loading actual and estimated figures. 

510—580 Loading past figures and totals. 

590-640 Loading subjects. 

650-690 Conversion of zero figures into . 

700-710 Conversion of figures to spreadsheet variables. 

720-730 Loading month sequence. 

740-990 Setting variables and strings. 

1000-1380 Printing of the spreadsheet. 

1390-1630 Boundary limitations. 

1640-2090 Amend routine. 

2010-2550 Movement of command cursor. 

2560-2910 Subroutine for calculating subtotals for actual figures, 

2920-3190 Subroutine for calculating subtotals for estimated figures. 

3200-3460 Advance year routine. 

3470-3490 Loading of other programs. 

3500-3640 Conversion of variables to the spreadsheet. 

3650-3930 Saving of important variables to be loaded again. 



BUD REVIEW 



LINE DESCRIPTION 

100-370 Loading of important variables. 

380-550 Convening actual figures to past figures. 

560-780 Menu. 

790-980 Review subjects (1). 

990-1180 Review subjects (2). 

1190-1350 Review months (1). 

1360-1510 Review months (2). 

1520-2150 Graph 1 (0-4000). 

2160-2800 Graph 2 (0-9999). 

2810-3260 Profit and loss screen. 



BUD END PROGRAM DESCRIPTION 

LINE DESCRIPTION 

100-350 Loading of important variables. 

360-380 String defining. 

390-750 Save. 

760-960 Menu. 

970-1040 Test to see if printer is on. 

1050-1170 Inform user that printer is not on and systems reset. 

1180-1200 Branching of different hard copies. 

1210-1430 Actual figures hard copy. 

1440-1650 Estimated figures hard copy. 

1660-1920 Actual and estimated figures hard copy. 
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AMIGA SUPERDEALS 



WORLDWIDE 



AMIGA 500 + 
£464.95 

INCLUDING VAT! 

AMIGA 500 + 
£489.95 



FREE Mouse, Mouse Matt, 
Karate Kidd II Game, Ten Public 
Domain Discs with Graphics & 
Sound Demo's and Utility 
Programs and Delivery! 



All the above Products FREE 
AND a TV Modulator and 
Delivery! 



INCLUDING VAT! 

AMIGA 500 TV MODULATOR ONLY £24.45p 

C-64 ABACUS (Disk) C-128 ABACUS (Disk) 

Svnthy-64 £14.75 Cobol-128 £32.75 

Cadpak-64 £24.75 Cadpak-128 £34.75 

Chartpak-64 £24.75 Chartpak £34.75 

Cobol-64 £32.75 Super C £42.75 



C-64 Supersoft 

Rhythm King 

Cartridge £37.50 

Rhythm King 

S'ware only ... £14.75 



Plus/4 and C-16 

64K RAM Pack 

fortheC16.... £39.75 
Turbo Plus 

Cartridge £19.75 



ACCESS ORDER HOTLINE 0706 43519 



SOFT WA R E 



Airoorne Ranger ......... 

Alternate World Games . . 
Bank ok Knrghts 

Battleships 

Stood Valley 

Bubble Bobbie 

Buggy Boy i 

B24 

California Games 

Capl America , 

Compendium 

EHflhtenment Druid II ... 

Elite 6 Pack Vol? 

Evening Star 

|Ve 

Fuolrap 

Football Director 

G Unekers Super Soccer 

Galactic Games 

Game Set & Malcft ..... 

Gauntlet II 

GryiOf - it 

Gunboat 

Gun ship 

tnoiana Jones 

International Karate * 

Kmght Ore 

Last Nmia 

i.i. i- Amo i 

Magnetron 

Mean Streak 

Mini Office II 

Mcpheus - 

Pirates — 

Ouedei 

Ramparts 

Red LED 

Roy ol me Rovers 

Ryos» 

Snoot em Up Const. Set 

Sip i no 

Salomons Key 

10 S IM" Blank Disk.... 

AMIGA 



Brian Clough Football . . 
Defender ol the Crown 

Goldrunner 

Guild ol Themes 

King of Chicago 

Ka-atcKidll 



ss fflsk C64/128 cas* *sa 

11.20 " BS Stealth F-gnter 1120 14 95 

. 725 11.20 Slreet Baseball 7 25 il 20 

.725 1120 Street Basketball 7 25 1120 

.725 11 20 Subbattle Simulator 7 25 1120 

. 725 1 1 20 SuperSp'inl 725 1 1 20 

. 6 55 9 75 Through the trap Door ... 655 1 1 20 

.725 11-20 Trantor 725 it 20 

.1120 14 95 Victory Road 6 55 9 95 

..725 1120 WiiardWars 7.25 9 M 

. .725 995 WiKball , « 655 M8 

7 25 1 1 20 World Class Leederbosrd . 7.25 1 i 20 

...6 55 9 75 XOR 725 9 75 

725 11.20 Yogi Bear.... ........725 1120 

655 9.75 Zynapi , 655 1045 

;; 7 25 1120 CM/129 DM only 

..725 11.20 Alternate Heahty Dungeon 14 95 

. 655 000 Autodue* 1495 

..725 1120 Beltlecruiser 1995 

7.25 11.20 Bollles in Normandy IR.BS 

.9 75 13 50 Broadside* 1995 

... 7 25 9 95 Canters at Waf 2*95 

.. 6.55 0.00 Delender ol the Crown 1120 

..655 1095 Destroyer M 20 

. 1 1 30 14 95 Europe Ablaze 23 &5 

. . 725 1 1 20 f kghl Simulator II 33 95 

,_7.25 H20 Guild o' theiwe , WJJ5 

1120H20 Hitch ikers Guide to Galaxy ,,...1846 

..7.25 1120 Hollywood Hrjtru* ,...1995 

,.7 25 11.20 Leather Goddess (Adults only) ..19 95 

... 6 55 9.76 Luftmg Horror 19 95 

...7 26 9 75 Moebius 14 95 

.12.75 1495 Ogre , 1495 

... B 55 9 75 panier Grenadier 1 9 95 

.1120 1495 Siteni Service "20 

..7.25 1120 Statontao '99^ 

...7 25 9 95 ThePawn 1495 

. . . 7 25 B 76 Ultima Nlll/lWV 14 95 

..725 1120 UpPenscope torn 

..725 1120 USAAF 23 95 

.1120 14 95 Wargeme Construction Set 14 95 

... 7.25 9.75 LOCkable 100 diss storage bO» . 9 95 

.. 7.25 1120 or Storage box • 10 Blank disk ..16.95 

7 99 AMIGA 

OBall 14 95 

1H 95 Roadwar 2000 1 a 95 

,....,,.1695 SDI 2295 

22 95 Siient Service 16 95 

1895 S>nbad ?2« 

1895 Starglidor 1895 

22 95 Terrepoda IB 95 

.,,,,18.95 



AMIGA 500 and ATARI STFM computer systems now In stock. All prices include post & 
packing in U.K. Overseas orders please add £1.00 per case/disk tor AIRMAIL delivery. 
Cheques or postal orders payable to: 
WORLDWIDE SOFTWARE 
1 Bridge StreeL Galashiels TD1 1SW Tel 0896 57004 
ail /ferns subiKl 10 armlaDihly C A OS 



ALL PRICES INCLUDE P&P IN THE U.K., 
ADD £1 per S'ware & £20 per H ware 
Abroad. AMIGA C 1 28, C64, PLUS/4 & CI 6 
Catalogues now available. SEND 
CHEQUE/P.O. or your ACCESS No. to:- 
RAMSOFT, 24 Bankfield Lane, Norden, 
Rochdale, Lanes., OL11 5RJ. 



TRYING TO USE YOUR COMPUTER?... J* 

YOUR ,'^/# / 

COMMODORE 




\ . \ \ \ \ V^&XX 




Send this form wilh >our remittance lo: 
INFO NET LTD., 5, River Park Estate, 
Berkhamsted. Herts HP4 JUL 



\ V 



I 

from only £10.99 for 20 disks delivered to your door. 

OFFER 1 Premium Universalis One disk for ail reasons! 

The Premium Universal disk tesied to DSDD 96tpi - suitable lor alt dnves needing hiqh quality 
media (SSDD. DSDD 40/BO track) 



25 disks 
50 disks 
100 disks 
200 disks 
250 disks 
500 disks 
1000 disks 



14.99 
27.99 
49.99 
96.99 



£119.99 
£229.99 
£399.99 



Packed in 25's, complete with envelopes, labels, WP tabsand 
hub-rings Disks individually certified and tested (on both 
sides) to 96tpi means no problems and higher reliability. 
Lifetime Warranty. 




ALL PRICES INCLUDE VAT 
& DELIVERY TO YOUR DOOR! 
NO HIDDEN EXTRAS 



Selso i5co l ou.s^;- uW 

DSDD 40/80 IracW 



market (SSDD 

25 disks 
50 disks 
100 disks 
200 disks 
250 disks 
500 disks 
1000 disks 



£ 18.99 
£ 35-99 

£ 69 99 

£129.99 

£149.99 

£279.99 

£499-99 



Packed .n 25& 

envelopes. >^; naiVl dua»y 

^"StesSdton both sic 
tided and testeuv Wem 



complete with 
vvp tabs ana 

cer- 
iides) to 



and 



£ 18.99 
E 35.99 
E 69.99 
E129.99 
EI49.99 
£279.99 
£499.99 



Cash 'n Carry prices 

on disks from 
Direct Disk Supplies 



BC 

25 disks 
50 disks 
1Q 0 disks 
200 disks 
25 ° d/ S Ks 
5O0 di 8ks 

1 000 disks 



P **ed in 25^ 



^^.ndexnoieMdea, 



elopes, labelkwS^L 6 
hub-rings. Disks , n * P tat ^ and 

96 'P' rneanTn^i^^Z 
ms and 
rranfy. 



OFFER 4 





Hlgrade 


PC 




Doubles 


Formatted 


25 disks 


£ 12.99 


£ 18.99 


SO disks 


£ 23.99 


£ 35.99 


100 disks 


E 45.99 


£ 69.99 


200 disks 


E 89.99 


£129.99 


250 disks 


£105.99 


£149.99 


SOO disks 


£199.99 


£279.99 


1000 disks 


£359.99 


£499.99 



Hlgrade Doubles & 
PC Preformatted 

Premium quality, individually 
certified to DS 48tpi. Made 
'or the PC, giving premium 
quality at budget prices 

Why not spoil yourself, and 
buy them tormatted-a little 
extra saves a lot! There's 
never a disk formatted 
when you need it. 



OFFER 5 Bargain Box 



Price per order qty. Appro* price per 
disk ex-VAT 



0X1 
AO 
20 
50 
100 
200 
250 
400 
SOO 
lOOO 



DO 

£ 

£ 
£ 



rn«w 



20 disks 
40 disks 
60 disks 
80 disks 
100 disks 
200 disks 
500 disks 
1000 disks 



10.99 
19.99 
28.99 
36.99 
42.99 
82.99 
£199.99 
£389.99 



Branded SCOTCH 
(made by 3Ml SSDD 
48tpi at prices below 
other people's plain 
label. Certified error 
tree and tested by3M; 
disks have hub-rings, 
tyvek envelopes and 
labels. 

Stocks are decreasing 
rapidly, these have 
been extremely pop- 
ular 



15.99 
29.99 
73.99 
139-99 
.99 



26.99 
£ 64.99 

*1SS e £»-- 

e»*K c 329 99 
£279 99 E * 99 

t* a9 "U £ 599 9 9 

3£S 



3 5« disks 
boxes' 



_ • i i 

iame day despatch 
-at no extra cost 



OFFER 8 
HI -flyers 



PC-AT High Density Disks 
made by one of our major 
manufacturers Suitable for 
PC-AT and other High Density 
dnves. Lifetime warranty. 

Total price (no extras) 



OFFER 9 

3" CF2 disks 

Maxell or Panasonic 3" 
CF2 disks 



20 disks 
40 disks 
60 disks 
80 disks 
100 disks 
200 disks 
500 disks 



E 32.99 
E 62.99 
£ 89.99 
£119.99 
£139.99 
£259.99 
£599.99 



10 disks 
20 disks 
50 disks 
100 disks 



E 25.99 
£ 49.99 
£109.99 
£209. 00 




OFFER 10 Box Clever 



VAT & carriage included. 




Safe! Clean! Tidy! 

Sixens - 6 stylish plastic library 
cases for 10 disks VAT & carriage 
included. 

3.5" Slimpak E8.99 
5.25" Vlslon-10 £8,99 



Lockable Boxes 

3.5" TDS040 40/50 disk box E 9.99 
TDS080 80/90 disk box El 2.99 

5.25"TDS050 50diskbox£ 9.99 
TDS100 100 disk box £12.99 

IBM parallel printercable £9.99 



How to order 



DIAl-A-DISK ON 01-979 781 1, and give your 
ACCESS or VISA number and expiry date. 
Send your cheque etc to Direct Disk Supplies Ltd. 
OMioal Orders. Bona-fide orders from Universities 
Colleges. Schools, Charities, etc are very welcome 
Cash orders, no minimum value 
Account orders, minimum value C30 



Direct Disk Su 



m 

§ 



pt YC12 , FREEPQST, 1 29 High Street, Hampton Hill, Middlesex TW1 2 1 BR 



Across the 

Board 

More and more companies are producing 
adventures based on well-loved board 
games - watch this space for the latest 
releases. 

By Tony Hetherington 
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Colossus Hridve 4 



hat have Trivial Pursuit. 22 1 B Baker Street, Ogre and 
Autoduel in common? The answer is that along with Chess, 
Bridge. Monopoly*. Scrabble and Cluedo they are part of a 
growing band of baord games that you can now play on and 
with your C64. 

Intellectual Classics 

Classic games such as chess and bridge have always been 
computer favourites and have now reached the standard 
where they can usually beat their human players. Most 
software houses have entered a contestant into the classic 
games stakes that has now replaced the urge to produce fruit 
machine or Othello games. 

The main players in the chess stakes include 
Mastcrtronic's Maslerchess, with the cheapest (at 111.99). 
Audiogenic with Grandmaster (that includes a free Othello 
game) and CDS's Colossus Chess 4. AH three will give you a 
good game and include features to allow you to tailor the 
game to your level and alter screen colours, provide you with 
move hints and allow you to backspace if things didn't go 

according to plan. 

Colossus Chess 4 also includes options to display a 3D 
board, replay the game so far, and six different types of game 
from full-timed tournament mode to problem mode where 
the program will help you solve magazine chess problems. 



Bridge as a game doesn't seem to convert to computer 
logic as well as chess, probably because at least half of the 
game is in the understanding with your party and the rest is a 
combination of luck, card skill, bluffing and a good bidding 
system. Unfortunately, the trio of Colossus Bridge 4 (CDS), 
Classic Bridge (Anco) and Oxford Bridge (Thinking 
Games) cannot hope to simulate this and ends up being a 
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poor substitute for Bridge addicts, abandoned without three 
other players. 

There can be some help for beginners who want to learn 
the game without the embarrasment of the long post- 
mortems that Bridge players seem to relish and will find 
good value in Colossus Bridge 4 as the pack also contains a 
copy of Begin Bridge by G. Fox that will leach you more 
than the limited tutorial. 

Old Favourites 

The Waddington games. Monopoly and Cluedo are quickly 
attaining classic status with the world famous property game 
celebrating its 50th birthday last year. Both arc now 
available in a triple pack from Leisure Genius (along with 
Scrabble) and will provide computer opponents the 360 days 
of the years when the family don't want to join in. Leisure 
Genius has just updated C64 Scrabble and has recently 
launched Scrabble deluxe which features a vocabulary of 
20.000 words and eight different skill levels. A full review of 
Deluxe Scrabble is included in this month's IQ. 




Monopoly 



The Latest Craze 

Last year. Trivial Pursuit stormed the shops around 
Christmas time and found its way onto coffee tables 
throughout the world. Thanks to Domark it has also 
appeared on the C64 and has now been followed by a young 
players version and the Baby Boomer collection for all those 
born in the 60s. Since then there have been other trivia 
games including Datasoft's Mind Pursuit in which you have 
to answer questions to get across a game track and Arcana's 
Powerplay where correct answers gave your pieces the power 
to fight in the arena. 

SSI's Colonial Conquest is obviously inspired by Risk 
and gives you the chance to quench your thirst for global 
domination. Against other human or computer controlled 
opponents that play the major powers of the world, you 
muster and send out your armies and fleets to conquer new 
territories. This new land will give you more resources to 
build more armies, or bribe or undermine neutral regimes, 
pay off unwanted enemies or get spy reports on opponent 
army strengths. 




Trivial Purwiit 



Sherlock Holmes 1 Presume? 

22 IB Baker Street (Datasoft) casts you in the role of the 
world's most famous detective as you compete against up to 
three other players (Doctor Watson. Inspector Lestrade or 
Irene Adler) to solve one of thirty different cases that include 
the curious cases of the "empty handed thief, "the 
amourous sailor" and "the perculiar charwoman". 

Once the characters and case have been selected then 
each player should read the case notes in the enclosed 
booklet so that they know what they're looking for before 
the game begins. From then on the play continues as each 
player in turn, throws a dice, and then moves around the 
board that represents the town. Whenever you enter a 
building you will receive a clue or part of a clue that can be 
coded so that only you can understand it 

Armed with these clues and badges you can lock 
buildings to keep the other detectives out, the race is on to 
solve the case. Thirty different cases should keep digital 
detectives sleuthing for some time. 




22IR Raker Street 



Shoot! 

Brian Clough's Football Fortunes is a computer game that's 
also a board game! Inside the packed box alongside the game 
tape or disk you'll find a board, counters and over 100 
playing cards. These cards represent the individual players 
thai you must buy and sell to form the right combination of 
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defence, midfield and atiack to win league and cup honours. 

However the best laid plans of mice and football 
managers arc often disrupted by chance that come in the 
form of 'computerised chance' or "managers luck' and 
'selection* problem cards in which you can gain and lose 
money and players. The fun really starts when a star striker 
comes up for auction just before a big game. 

Autoduel is a role-playing game (available through 
Microprose) in which you must "drive offensively to save 
your own life". It is based on the incredible Steve Jackson 
game of Car Wars. In the computer version you must build a 
custom car, pile on armour plating to protect it then arm it 
with lasers, machine guns and flamethrowers before you 
dare take to the open road. 

Unfortunately, you need money to buy the weapons and 
since you begin the game desperately short of cash, your only 
chance is to risk life and limb by entering Amateur Night in 
the Arena. Survive that and you may win enough money to 
build a car. Later on in the game you'll be able to gamble in 
casinos, truck across futuristic America, carry special 
deliveries or just go on the open road on a vigilante trip. 

Soon Available 

A second game from the excellent Steve Jackson 
Microgames series is coming soon from Origin and is a 
computer version of Ogre. This will be a wargame in which 
one side has an army of hovercrafts, tanks, howitzers and 
infantry lined up against a single unit. Unfortunately, that 
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SOFTWARE AVAILABLE FOR AMIGA AMSTRAO ELECTRON SPECTRUM 
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CROWN SOFTWARE 
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unit is an Ogre. A massive Cybertank that bristles with 
missiles and guns. It's going to be a close Tight. 

There's more board game conversions to come as 
Domark plan several more Trivial Pursuit question packs. 
Activision is set to release its version in September and 
Gremlin Graphics has announced that they're computerising 
the Games Compendium in a "new and wacky form" that 
includes snakes and ladders but with real snakes, and 
Leisure Genius (Virgin) has plans to extend its range of 
games with Scruples and Diplomacy! If you haven't played 
Diplomacy before you're in for a surprise! Seven human or 
computer controlled players lieing. cheating, bribing, 
dealing and fighting for control of Europe! 

Touchlines: 

Mastertronic: 8-10 Paid Street. London EC2A 4.111. 
Tel: 01-377 68X0. 

Audiogenic: 39 Simons Industrial Park. London Road, 
Reading RGI 6AZ. Tel: 0734 303663. 

CDS: CDS House. Beckett Road. Doncaster DN2 4 AD. Tel: 

0302 211 34. 

Anco: 35 West Hill. Dartford, Kent DAI 2EL Tel: 0322 
925/3/8. 

Leisure Genius/ 'Virgin: 2-4 Vernon Yard. Poriobcllo Road. 
London Wit 2DX. Tel: 01-727 8070. 
Microprose: 2 Market Place. Tetbury. Gloucestershire. GL8 
SDA. Tel: 0666 54326. 

SSI/ US Gold: Units 2/3 Holford Wav. Ho/ford. Birmingham 
B6 7 AX. Tel: 021-356 3388. TO 
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LEAGUE AND NON LEAGUE All English and Scottish League learns are supported, 
and also the non-league sides often used on pools coupons. 
PRINTER SUPPORT Full hard copy printout of data if you have a printer 
PRICE El 5.00 (all inclusive) 





AT LAST No more struggling toe hours to get the 
future list into the computer FDCCEN has been 
programmed with all English and Scottish League 
fistmes lor 1997.B. Simply type in the date, and the full future lis is gennraied 
in seconds Fully compatible with Poo Is winner Yearly updates available. 
POOLSWINNER wilh FTXGEN £16.50 (for both) 
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COURSE WINNER v3 



NOT JUST A TIPSTER 
PROGRAM, Coursewmner 
V3 can be used by experts 
TBE PUNTERS COMPUTER PROGRAM *nd occasional punters alike 
You can develop and test your own unique winning system by adjusting the 
analysis formula, or use the program in simple mode Co ursewumei V3 uses 
statistical analysis of major factors including past form, speed ratings, course 
statistics, prise money, weight, going, trainer and jockey farm etc, etc. It 
outputs most likely winners, good long odds bets, forecasts! masts etc. The 
database includes vital course statistics lor all British courses. You can update 
the database never goes out of date FULL PRINTER SUPPORT. 

PRICE £ 1 5.00 (ail inclusive) mctndM fUl AND National Ham vintona 
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Sprite 
Library 

Kicking off our Sprite Library series, we look at the 
full potential of the sprite. 
By Mike Benn 



i5^prites are undoubtedly one of the 
most useful graphic aids available to 
the programmer. They have the 
ability, on command to move freely 
around the screen, change colour and 
shape and to create realistic animation 
which enables them to become an 
essential element of good graphic 
design. They can be easily accessed 
from Basic even if they do need a few 
POKEs to get them working. 

The 'User Manual" that comes with 
the computer describes, through 
instructions and examples how to put 
sprites on the screen, move them about 
and manipulate their parameters in a 
number of ways - but hardly laps their 
full potential of the sprite or the 
computer programmer. 

Programmers of arcade games are 
well aware of the difficulties that have 
to be overcome because the system 
development of new games. 
Programmers of the C16 are only too 
well aware of the difficulties that have i 
be overcome because the system 
designers overlooked the need for 
sprites. 

Flexible Sprites 

Sprites are not just used in arcade 
games. Their flexibility makes them 
adaptable for use in all types of 
programming. Simulations, education 
based programs, business software 
and many utility programs often 
utilise their special characteristics. It 
is, however, the arcade game that puts 
sprites, to best use. 

One of the most impressive uses of 
sprites is the creation of animated 
graphics. By running a series of 
similar, but slightly different pictures, 
the eye and brain are tricked into 
believing the sprite is alive. As with all 



forms of animation, the best results 
require many individual designs to 
produce a smooth and credible 
animation. The oustanding animation 
quality in 'Summer Game 1 & 2" is a 
fine example of the excellence that can 
be achieved. 

Pre-planning Required 

Creating and developing a new 
game requires considerable pre- 
planning to attain maximum impact in 
all areas, and good sprite designs are 
particularly important. Take for 
example, a simulation of an aircraft 
coming into land. If it touches down 
too hard or overshoots the runway, it 
could be that a sprite 'explosion' will 
add realism to the game. 

Sprites must be designed to 
accommodate this or other 
eventualities even though only one of 
the designs is ever called upon at one 
time. The sprite registers include 
collision detectors which helps the 
programmer, and can be read by 
PEHKing them, to see if a sprite has 
collided with another sprite or hit 
something in the background. 
Breaking a game plan down into 
individual sections will help in the 
process of deciding which type of 
sprite designs will be the most 
effective. 

Machine code programmers have 
the distinct advantage of speed, in 
programming 'shoot-Vm-up' games, 
where as Basic is slower. In machine 
code you can put 64 sprites on the 
screen at the same time rather than just 
the eight, accessed by Basic. It's 
difficult to know what type ol program 
would use so many sprites, but it can 
be done. 

There is a half-way house that 



Basic programmers can use; SYS calls 
and Basic extensions. A SYS call is a 
machine code subroutine that can be 
called from Basic to handle a part of 
the program where speed is an 
advantage. Such subroutines are often 
published in Your Commodore and 
are well worth looking out for. Basic 
extension is a software program written 
to supplement the computer's own 
somewhat limited Basic commands. 

Designing Sprites 

Designing sprites can be very time 
consuming, even more so ifyou follow 
the technique used in the 'User 
Manual' which explains the theory of 
sprite creation and which requires 
large amounts of arithmetic to 
produce one sprite design. This seems 
a shame when you have a computer 
that can do this type of simple maths 
standing on its joystick. 

A useful piece of software isa 'sprite 
editor' which allows you to 
concentrate on the design and leaves 
the computer to worry about the 
mathematics. A word of warning 
though - a sprite has no artistic skills 
of its own. and relies totally on the 
skills of the operator. 

Sometimes, one sprite isn't large 
enough on its own to provide the 
design you want. This is overcome by 
placing two or more sprites next to 
each other in a suitable manner. The 
pre-designed aircraft that accompany 
this article use this capability, working 
side by side, but when run on the 
screen, appear as one. The sprites are 
stored in memory alternatively so we 
start of with Sprite I then Sprite II for 
the first design. The following designs 
stored in a similar manner so when the 
sprites are run in a program, the order 



YOUR COMMODORE december 1987 
69 



PROGRAMMING 



■ 


fa o 




w — 1 



is known. A Basic program thai would 
animate tour sprites as one larger 
design would be used as follows: 

FOR SP = 0 TO 20 
STEP4:POKIJ2040.SP:POKE204I +1 
:POKE2042.SP+2:POKE2043.SP +3: 
NEXT 

The STEP command steps every 
lour sprites so that the first part of the 
design is always read by the first sprite 
pointer. 

The complex animated sequences 
found in any good arcade game needs 
a great deal pf artistic and creative skill 
to produce. To design a set of sprites 
from scratch can lake days of work 
and can still fall short of the standards 
required. The answer to the problem 
maybe found in Sprite Library. 

A wide selection of pre-designcd 
sprites have been saved in Basic loader 
form to create the basis of an extensive 
'Library', illustrating and animating 
everything from a porche to a square. 

Forms of Flight 

Let's start the series by taking to 
the air in three different forms of 
transport. Starting wth a small jet 
followed by a helicopter flight and 
finally a while knuckle ride under a 
hand glider. Bolh the plane and the 
helicopter approach the viewer from 
the distance and turn to the right. The 
hand glider is not fully animated as 
space did not permit. However, there 
should be enough key frames for you 
to fill in the missing animation. All the 
sprite definitions require two sprites. 



Hex Decimal 

A0-B7/ 160-183 

B8-CA/ 184-202 

C0-C.V 192-195 

CA-CO/ 202-205 

CE-D5/206- 2I3 
D6-D7/2I4 - 215 



Description 

Jet plane 
approaching and 
turning to the 
right. 

1 lelicopter 
approaching and 
turning to the 
right. 

Helicopter blades 
turning while heli- 
copter hovers 
facing the viewer. 
Helicopter blades 
turning while heli- 
copter hovers fac- 
ing right, 
Hand glider turn- 
ing to i he right. 
I land glider flying 
upwards to the 
right. 







D8-D9/216 - 217 



DA-DB/218 - 219 



DC-DD/220 - 221 



DE-DF 7222-223 



Hang glider 
getting ready 
lo land or has 
just taken 

off. 

Hang glider on 
ihe ground 
just about lo 
take olT or 
has just 
landed. 

Hang glider on 
the ground 
pilot under 
canopy 

Hang glider on 
the ground. 



Getting it all in 

Type in the basic loader as published 
and save if - don't run it or it will self- 
destruct. Before running the loader 
program you will need lo reset ihe 
computer and type the following: 

POKE43.0:POKE44*64;POKE 
I6384.0:NEW and press RETURN. 

This will trick the computer into 
believing that the Basic now starts at 
$4000 instead of $0801. Load in the 




Basic loader and run it; if error free, 
the program will automatically save 
itself as a block of data. If you reload 
that data in the future remember to 
add a I after the device number. The 
data is saved in the following location 
S2800-S37FK 

The sprites run from 160 lo 223 in a 
compromise lo avoid the area $2000 
traditionally set aside for redefined 
character graphics and to avoid the 
need of typing in line after line of data. 

If only one or two sprites are 
required then use this formula: 
(Sprite block N0.-I6O)* + 190 = the 
dala line number at which that sprite 
blocks data starts. 

Remember to type in the following 
three lines of data and alter the 
variable BL lo the numberof dala lines 
vou have in vour finished program, 
less I. 

The small basic program Aircraft 
Display will animate the sprites in 
both non-expanded and expanded 
forms on the screen simultaneously. 
To hold on any sprite enter the same 
number for Start and End. 

Any Sprite Editor program will 
enable you to change and adapt the 
individual sprites to your own 
requirements. Wf! 
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Lister 128 

I j you've got a printer and disk drive, you'll find the 
program a handy utility for your 128. 



fusing Lister 1 will enable you to 
take a program saved on disk as an 
ASCII file and lisl il to the printer. 
Nothing extraordinary in that, you 
may think, except that the program 
does not have to be loaded into 
memory. Well. Lister will also perform 
a few other things. First the listing is 
printed as pages (50 lines to a page); 
this will mean that the most important 
line is not printed across the 
perforations (as normally happens). 

Each page is given a heading of 
your choice, together with the date. All 
lines of the program are indented so all 
lines start in a straight line, irrespective 
of the line numbers. If a line occupies 
more than one line on the print out the 
continuation will also be indented, e.g. 



By Kevin Blight 



1000 KHM THIS IS A TLS I 

LINE IT WILL BESP LIT 
OVER TWO LINES 
You will have the option to list the 
program in either upper or lower case 
characters. A page throw is executed at 
the end of the listing. To save a 
program as an ASCII file enter 

DOPEN* l."<FILENAME>.S,W" 

CMDI 

LIST 

PRINT * I 

DCLOSE 

Once the listing is finished you wilt 
have the option ol deleting the ASCII 
file. The variables used are as follows: 

See listing on page 83 



FS : Name of the file to lisl 

N$ : I leading lor listing 

D$ ; Dale for listing 

P$ : = *'U" or "L" for upper or 

lower case 
L : Counter - Number of lines 

printed 

P : CHR$ code for lettering to use 
for printer (U=I45 / L=17) 

A$ : Characters read from disk file 

LS : Line to print 

A : Counter Length of L$ 

BS : Line number and spaces for 
indenting 

SP$ : String of 9 spaces 

X : Used in FOR/NEXT loop for 
page throv\ 

Q$ : List another program Y/N 



TURBO-WASHER OFFER 



FROM ASP READERS SERVICES 




* NO ELECTRICITY REQUIRED 

*HOSE CONNECTOR & 32oz SOFT SUDS 
SUPPLIED 

Connect Turbo Wash to a garden hose and use its unique telescopic jet 
with 3 Interchangeable nozzles lor fine spray, power jet and angle spray 
to cut through the dirt using controlled detergent dispenser facility and 
clean water rinse In one continuous operation. Its super dirt cutting blade of water 
cleans cars, caravans, patios, engines, 'too high to reach windows', lawnmowers, 
gutters, etc. With no parts to rust the Turbo-Wash will last lor years and years. 



PS ST! 

Turbo Wash makes a 
great Christmas gift. 

A.S.P. Readers Service, 9, Hall Road, 
Maylands Wood Estate, Hemel 
Hempstead, Herts. HP2 7BH tel: 0442 
41221 



I To A.S.P. Readers Services, 9, Hall Road, Maylands Wood Estate, Hemel Hempstead 

| Herts HP2 7BH Please supply Turbo Washers + £23.95 

| I enclose my cheque P. O payable to A.S.P. Ltd., Please debit my Access/Barclaycard 

j A/c ' No ' I I I I I I I I I 1 1 I II I I 1 1 I I 

I Signature 

| Name 

I;:;::::;:;::" 

| Please allow 28 days lor delivery. This oiler is available to readers in U.K. only. Overseas 
I enquiries in writing to the above address. 
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Listings 

Get it right first time with our deluxe program system 

for the C64. 



v 

JL ou may have noticed that our 
listings are free of those horrible little 
black blobs which send you searching 
around the keyboard for a suitable 
graphic symbol. You may also have 
noticed the funny numbers by the side 
of each line of the listing. Fret no more, 
it's all part of our easy entry aid. 

Instead of those nasty graphics and 
rows of countless spaces in PRINT 
state.ments and strings we use a special 
coding system. The code, or 
mnemonic, is always contained in 
square brackets and you'll soon learn 
to decipher their meanings. 

For example, [SA] would mean 
type in a Shifted A, or an ace of spades 
in layman's terms, and [SAIO] would 
mean a row of ten of these symbols. 

[S+2] means hold down the shift 
key and press the plus key twice. It 
doesn't take a great leap of logic to 
realise that [C+2] means exactly the 
same thing except that the Commo- 
dore key (bottom left of the keyboard) 
is held down instead of the shift key. 

If more than two spaces appear in a 
statement then this will be printed as 
[SPC4] or, exceptionally, [SSPC4]. 
Translated into English this means 
press the spacebar four times or in the 
latter case hold the shift key down 
while you do it. 

A string of special characters could 
appear as: 

[CTRL N, DOWN2.LEFT5.BLUE, 
F3,C3j 

This would be achieved by holding 



down the CTRL key as you press N. 
press the cursor key down twice, the 
cursor left key five times, press the key 
marked BLUE while holding down the 
CTRL key, press the F3 key and. 
finally hold the Commodore key down 
while pressing the number two key (C2 
would of course make the computer 
print in brown). 

Always remember that you should 
only have a row of graphics characters 
on your screen with no square brackets 
and no commas, unless something like 
this appears: 
[SS],[C*3 

In this case the two characters should 
have a comma between them. 

On rare occasions [REV T] will 
appear in a listing. This is a delete 
symbol and is created by entering the 
line up to this mnemonic. Then type a 
closing quotation mark (SHIFT & 2) 
and delete it. This gets the computer 
out of quotes mode. Hold down CTRL 
and press the number nine key 
(RVSON), type the relevant numberof 
reversed T's and then hold down 
CTRL and press zero (RVSOFF). 
Next type another quotation mark and 
delete it again. Now finish the line and 
press RETURN. 

A list of these special cases is given 
in the table but remember that only 
one of these mnemonics will appear 
outside of a PRINT string: the symbol 
for pi. This may appear when its value 
is needed in a calculation so this may 
look something like: 



:CC=2*[PI]*R: 

Ignore the square brackets and just 
type in a shifted upward pointing 
arrow (ie. the pi symbol). 



PROGRAM] SYNTAX CHECKER 



by Eric Doyle 



5 REM SYTAX CHECKER - ERIC DOYLE 

10 BL-10 ;LN-70 :SA-4915S 
HO FOR L-0 TO BL;CX-0:FOR D-0 TO 
IS 

30 READ A: IF A>S55THENPRINT"NUHB 
ER TO LARGE" ; LN-(L"10> : STDP 
10 CX-CX-A:POKE SA-L-16*D,AiNEXT 
D 

50 READ A: IF »><CX THENPR I NT "ERR 

OR IN LINE";LN+CL»10):5T0P 

BO NEXT L:SYS 49155:NEU 

70 DATA 173,5,3,801,165,508.31.1 

50, 169, 9, 141 . 3£ , HOB, 111 , 33 , SOB , 1 

847 

BO DATA 159,7,141.134.8,169.13,3 
8,210,855,169.64.141,4.3.169.158 

e 

30 DATA 195,141,5,3,88,96,150,16 
9, 154, 141.4,3, 169, 165. 141 ,5. 1566 

100 OATA 3.169,14,141,134,5,141. 
35, 50B. 169, 6, 141,33.508.88.96.15 
85 

110 DATA 35.154,165.75,138,75,15 
5 , 75 . 165 , 0 , 165 . 50 , 1 33 , 554 , 165 , 51 
,1747 

150 DATA 54,101,554,133.554.189, 
0,5.540. 18,69,554, 133,554,535, IB 
9,5346 

13Q DATA 0,5,540,8,54.101,554,13 
3 . 554 , 535 , 50B , 533 , 169 , 1 , 141 , 134 , 
5134 

140 DATA 2,165,554,74,74,74,74,3 
5,155,195,35,510.555,165.554,41, 
5054 

150 DATA 15,35,156,195.35,510,55 
5. 169. 13,35, 510, 2SS. 169, 13,35.21 
0, 1995 

160 DATA 555,169,7.141,134,8.104 
, 168, 104, 170, 104,96,54, 105,48,20 
1 , 1B35 

170 DATA 58,16,1.95,54,105,7,95. 
0,0,0,0,0,0,0,0.403 
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Checksum Program 

The hexadecimal numbers appearing 
in a column io the left of the listing 
should not be typed in with the 
program. These are merely checksum 
values and are there to help you get 
each line right. Don't worry if you 
don't understand the hexadecimal 
system, as long as you can compare 
two characters on the screen with the 
corresponding two characters in the 
magazine you can use our line 
checking program. 

Type in the Checksum Program, 
make sure that you've not made any 
mistakes and save it to tape or disk 



immediately because it will be used 
with most of the present and future 
listings appearing in Your 
Commodore. 

At the start of each programming 
session, load Checksum and run it. 
The screen will turn brown with yellow 
characters and each time you type in a 
line and press the RETURN key a 
number will appear on the screen in 
white. This should be the same as the 
corresponding value in the magazine. 

If the two values don't relate to one 
another, you have not copied the line 
exactly as printed so go back and check 
each character carefully. When you 
find the error simply correct it and 



press RETURN again. 

If you want to turn off the checker 
simply type SYS49I52 and the screen 
will return to the familiar blue colours. 
You can then do whatever it was you 
wanted to do and if this doesn't use the 
area where Checksum lies you can go 
back to it with the same SYS 
command. 

Lower Case 

Many of the listings are presented in 
lower case. To turn your computer to 
lower case mode press the 
Commodore key and the SHIFT key 
at the same time. ' ; 



Mnemonic 

[RIGHT] 

[LEFT] 

[DOWN] 

[UP] 
[Fi] 

[F2J 
[F3] 
[F4] 
[F5] 
[F6] 
[FT] 
[F8] 

[HOME] 

[CLR] 

[RVSON| 

[RVSOFF] 



Symbol Keypress 

CRSR left/right 
SHIFT & CRSR left/right 
CRSR up/down 
SHIFT & CRSR up/down 
f] key 

SHIFT & H key 

O key 

SHIFT & H key 

f5 key 

SHIFT & 1*5 key 
t7 key 

SHIFT & H key 
CLR/HOME 



L 



SHIFT & CLR/HOME 
CTRL & 9 
CTRL & 0 



Mnemonic Symbol Keypress 



| BLACK] 

[WHITE] 

[RED] 

[CYAN] 

[PURPLE] 

[GREEN] 

[BLUE] 

[YELLOW] 

[POUND] 

[LARROW] 

[UPARROW] 

um 

[INST] 
[REV T] 
[Cletter] 
[Sletter] 



ill 



CTRL & I 
CTRL & 2 
CTRL & 3 
CTRL & 4 
CTRL & 5 
CTRL & 6 
CTRL & 7 
CTRL & 8 
£ 



SHIFT & t 
SHIFT & INST/DEL 
see text 
CBM + letter 
SHIFT + letter 
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Compunet 



In the third part of our communications series, we look 
at the various uses of Compunet. 
By Jennifer Goldsmith 



mpared to other communi- 
cations services, Compunet is a 
relatively new system. Its official 
launch was in September 1974 and was 
a joint venture of Commodore UK and 
ADP Network Services with ADP 
providing the service and Commodore 
providing the modems. However, once 
Commodore was no longer able to 
provide the moderns or to continue to 
repair the faulty existing ones, they 
pulled out and left ADP on its own. 



Security Advantages - Modem 



However, the Commodore modem 
was not all bad for the chip in the 
modem, provided both the software to 
access Compunet and a unique 
identity which ADP could use as 
security. This security is used in two 
ways. Firstly, it is used when you log 
on to the system for you can only log 
on using your own modem. When you 
register with Compunet. you have to 
provide an identity number of your 
modem, so even if you have the correct 
password but try to log on using your 
friend's modem, you will not be 
allowed on the system. 

The second use of the identity 
number is in downloading protected 
programs, as protected programs will 
only run on your computer if your 
modem is in place. Unprotected 
programs, on the other hand will run 
without your modem in place. On 
Compunet, protected programs are 
denoted by the letters PP and 
unprotected programs by a single P. 



Logging on to Compunet 

Once you have obtained your modem 
and have acquired and lilted the 
telephone jack, you can plug your 
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modem into the phone line (see 
October's issue for more details), you 
have to register with them. 

This is necessary for two reasons. 
Firstly they have to know who to 
charge and the address to which bills 
and other correspondence can be sent, 
and also to give you a user identity and 
password. The user I.D. will be used 
by other users on the system to send 
you mail. Once you have registered 
and plugged your modem into both 
your computer and the phone line, you 
are all set to dial up. 

To do this you simply type 
CONNECT (return) and the computer 
will ask you for the phone number 
which you type in, not forgetting to hit 
return afterwards. The modem will 
then dial the computer and when you 
are connected the screen colour 
changes from blue to mauve and 
various words like 'connecting' are 



seen. You will also see the word 'linking'. 
This linking process is giving you some 
extra software which you should save 
immediately once you have left the 
system. You save it with the command 
CNSAVE (return). 

On future occasions you load this 
software with the command 
CNLOAD before typing CONNECT. 
This additional software stores the 
phone number you have used, so you 
will not have to type in the phone 
number again unless you want to use a 
different phone number. 

The Charges 

The various charges are quite 
numerous but easy to understand and 
are cheap when you consider what you 
gel for your money. There are three 
different rates of subscription, basic at 
£9 per quarter, standard at £12 per 
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quarter and gold at £15 per quarter. 
You can upgrade from one to the other 
at any time by paying the difference 
between the two rates. 

However, to downgrade you have 
to give one months notice and you can 
only downgrade when subscriptions 
arc due. The rate which is suitable to 
you, will depend on how much you 
want to upload onto the system 
and/or how long you want tospend on 
the system. Details will be supplied by 
Compunet when you apply for 
registration and full details are on the 
system. 

There are also connect charges, 
storage, distribution and admini- 
stration, as well as miscellaneous 
charges. However, before you turn 
white with fright, let me tell you it is 
not that bad. The most significant 
charge is the connect time charge. 

Although this charge is 60p an 
hour after 6pm in the evenings 
(weekdays) and all day at the weekend, 
if you use the system for more than five 
hours a quarter it is worth upgrading 
to a gold account and paying a fixed £3 
a quarter for unlimited free connect 
lime in the evenings and weekends. 
There is no substitute for the daytime 
weekday charge (from 8am to 6pm) of 
£4 per hour but usually only business 
users access Compunet during those 
hours. Storage charges of 
lp/frame/day/ are small unless you 
have many frames on the system, in 
which case a gold account may be 
preferable. 



Distribution charges, are like 
commission rates. If you want to sell 
something e.g. a program on 
Compunet, Compunet will take 
between 40% and 50% of the price as 
its share. 

Administration charges are only 
charged if your bank refuses to pay a 
cheque or a direct debit (once you have 
filled in the mandate). 

Miscellaneous charges are for 
special facilities, many of which are 
only available to gold subscribers. 
Details can be found on the system. 



n T p 


:reveals another directory 


bHOW 


reveals a text frame 


BACK 


returns to the previous 




directory 


GOTO 


goes directly to the 




frame with that number 




or name 


UCAT 


displays a catalogue of 




your uploaded frames 


MAIL 


accesses the electronic 




mailbox 




snows you your bill 


SA Vb 


saves a downloaded 




program 


bl_)l 1 K 


accesses the editor 


T P * in- 
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disconnects you trom 




Compunet (this is the 




only way you should 




disconnect from 




Compunet otherwise 




you may get charged 




more connect time) 


pp I NIT 


prints the current frame 
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a trame 
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BUY 


used to download 




software 


LOAD 


loads a frame or 




progam from disk into 




the memory of your 




computer 


i ipi r\ 
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uploads a text frame or 




program onto the 




system 


VOTE 


the Compunet clap- 




ometer - allows you to 




vote on software 


HELP 


for when you get stuck 



Party l i ue . 



il 



*hoii> for ho J 



Press RETURN twice to send coHMands 
or Messages. 

SaNple Party lino coMHands:- 



by a naNe) 
who 's in pline) 
nane) to enter 



Kali as < followed 
*who (tells you 
Center Cany rooN 

a different roon 
use the cursor keys up/down to 
scroll back through Messages 

CHET calls you fron pub 



*alias Ivan E 1 1 ovani tch«* 
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Finding Your Way Around 

Once you are logged on lo Compunet, 
you will notice that there is a whole 
series of commands near the bottom oi 
the frame. The other name tor this is 
the duckshoot. Here is a list of the 
commands with a short explanation. 

The editor is an area which allows 
you to prim out frames and to edit. 
The editor stores the last 12 frames 
(excluding indexes) which you have 
accessed. In some areas of Compunet 
you will find there are "forms' to fill in, 
e.g. if you want to join a club you can 
edit or fill in these 'forms' in the editor 
without going off line and send them 
using the mail facility to the correct 
recipient. 

The editor also exists off-line for 
you to inspect and edit frames. The 
editor can hold up to 8K of data. The 
editor commands .are: 



PUT used to save the frame 

currently on the screen 
to disk 

STORE saves ALL the frames in 
the editor to disk 

PRINT prints the current frame 

FREE shows how much space 

is left (in editor) 

GET similar to LOAD but 

frames go into editor 

RETURN exits from editor lo 
where you were before 
you went into editor 

HELP for when you get stuck 

EDIT when you first enter the 

editor you are not in 
edit mode. You have to 
use this command to be 
able to edit 

LAST when you first enter the 

editor you see the last 
frame you accessed. To 
proceed 'backwards' 
you use this command 

NEXT if you have used LAST 

and want to proceed 
•forwards* 

NEW erases the current frame 

WITHOUT showing 
the next frame 
ERASE erases the current frame 
AND shows the next 
frame 

COPY to copy from one area to 

another 



The Structure of Compunet 

When you are at the first page, the 
main index, which is the first index 
page you will see on the system, you 
will notice a list of names. These are. at 
the time of writing: Cnet Highlights. 
About Cnet. Live Wire. S'ware park. 
Club 128. Zap Club. The Jungle. 
Comms. Show Case and Shopping 
Centre. 

As you use the cursor to reach the 
item you want, you will notice that 
there are numbers of names to the left 
of the items - these are the page 
numbers of names. To the immediate 
right of the item is the letter T followed 
by a + sign. T indicates that a frame of 
text is present and the + sign means 
that there is a sub-directory. 

Other letters apart from T can be 
found. These are D. P and PP. D 
indicates a 'dummy' page. Pa program 
and PPa protected program. There is a 
column to the extreme right of the 
screen. Use the function keys 17 and 18 
(shifted 17) and see what happens! 

Function keys fl to 16 are used as 
short cuts to various routes. Each 
index shows where these will go. 
Compunet has a tree structure, i.e. a 
main index with a sub-directory below 
each one of the directory items listed 
and so on. 

However, in Compunet there is no 
limit to the number of levels you may 
have and the page numbers have no 
bearing on the levels, unlike Prestel. 



Whafs on Compunet 

It is obviously both impossible and 
impractical to list everything on 
Compunet. Things are changing every 
day. Basically. Compunet has 
something to please everyone, whether 
it is multi-user games, art gallery, 
demos, educational software, business 
software, reviews, communications, 
utilities, clubs, users groups including 
ICPUG and ICC. hobbies like CHESS 
and amateur radio, teleshopping. daily 
computer news and much, much more. 

One interesting and unique area is 
the JUNGLE, which is the area which 
you can enter your own contributions. 
This can be anything from notes and 
comments to long stories and even 
software. Yes. you can even sell, yes 
SELL your own software, at a price to 
be determined by you. which should be 
reasonable for the product. Of course 



Compunet takes its commission but 
you get the best part. This area gives 
you a chance to get other people's 
views on you ideas. 

There are six main areas in the 
JUNGLE, which are software, small 
ads. clubs and societies (excluding 
those which have a dedicated area ol 
their own), hobby corner, user 
noticeboard and jobspot. Thus, the 
JUNGLE is an exciting ever-changing 
area. 

MUD or Multi-User Dungeon, is 
an adventure game which was 
originally developed at Essex 
University and has become the rage 
since it was made available on 
Compunet. The only disadvantage 
with the excitement MUD provides is 
the charge for playing it PLUS the 
phone bill!! 

Tclesoftwurc on Compunet is 
numerous and varied. There are free 
programs off all descriptions whether it 
is a usergivingaway his latest program 
of all kinds, e.g. utilities, educational, 
etc. 

Likewise you can purchase 
software for numerous tasks from 
communications and utilities to 
business software. And there is 
software for various commodore 
machines, such as the C64. CI28. 
Amiga and even the PET & +4 & C 16. 

The Future of Compunet 

When Compunet first started, the 
system was terribly slow but in July. 
ADP moved to a new location, with 
new phone numbers, new phone lines, 
new computer, new software but the 
same staff. After the initial teething 
problems such as BT and the fact thai 
most telesoliware needs to be re- 
written in a different language lor the 
new computer, the system is proving 
faster and therefore friendlier. 

ADP has some great plans for 
Compunet. and some should come 
into effect before the end of 1987. 
Amiga users should soon be able to 
access Compunet with of course, an 
Amiga modem. 

C64 and CI2S users will eventually 
be able lo use a modem other than the 
black box. It is hoped that overseas 
users will be able to use PSS which 
would be a great help to those in Eire. 
There are even plans for non-Commodore 
machines like the Atari ST and IBM tu 
access the system. It is all very exciting, 
so if you want to find out what the 
future holds, then join in and find out! 
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DISKIT 8 

Please refer lo Listings before 
typing in any programs. 



PROGRAM! MEM CLEAR BOOT 



43 10 Ml-32768:M2-34992:CH-0 
97 11 PRINTCHRS(144)CHRS(147) 
A2 12 POKE53280.15:POKE5328l.l2 
94 13 PRINT 

8F 14 PRINTSPC(8)CHR$(IB>"|SU.S* 
22. SI ) 

26 15 PRINTSPC(8)CHR$tl8) "[S-.SP 
C22.S-] 

B4 16 PRINTSPC (8) CHRS (18) "[S-.SP 
C4 J DATA STATEMENT [ SPC3 . S- 1 

3C 17 PRINTSPC (8) CHRS (IB) " [S-.SP 
C22.S-1 

E5 18 PRINTSPC(8)CHR$(18) " [S-] 
TO MEMORY ROUTINE [S-] 

4A 19 PRINTSPC (8) CHRS (18) " |S-,SP 
C22.S-] 

22 20 PR1NTSPC(B)CHR$(18>"[S-.SP 
C5JBY LES ALLANISPC5.S-I 

50 21 PRINTSPC(8)CHRSI18) "IS-.SP 
C22.S-) 

6C 22 PRINTSPC(8)CHRJ(18) "[SJ.S- 
22. SK] 

AO 23 PR!NT:PRINTCHRS(155) 

42 24 PRINT" THIS ROUTINE READS 

THE DATA STATEMENT, " 
80 25 PRINT 

17 26 PRINT" CONVERTS FROM HEX 

TO BINARY AND POKES" 
B2 27 PRINT 

C4 28 PRINT" CODE BACK TO THE 

AREA OF MEMORY FROM" 
64 29 PRINT 

19 30 PRINT" WHICH IT WAS PRE 

V I OUSLY GENERATED . " 
59 31 PRINT: PR I NT 
DO 32 RE AD CODES 

BB 33 LB-ASC(niGHTS[CODE$.l))-48 

i I FLB >9 THEN LB -LB- 7 
CF 34 HB-ASC(LEFTS(C0DES.l))-48: 

IFHB >9THENHB-HB-7 
A5 35 CH-CH+LB-HB 

37 36 PRI NTSPC ( 5 ) CHRS ( 5 ) "READ I NG 
MEMORY BLOCK . . . " :M1 ;PRINTCH 
RSU4S} ; 

95 37 P0KEM1.HB"16*LB:M1-M1+1:IF 

MKM2THEN32 
E6 38 IFCH027136THENPRINTCHRSU 

47) "ERROR IN CHECKSUM! I ! ! ! " iE 

ND 

5F 39 SVS34896 
12 40 : 

2A 41 : : DATUM STATEMENTS 



10 42 : 

9F 43 DATA 00 . OB. 08 . 01 . 00 . 9E . 34 . 

30.38.30. 00. 00. 00. 45, 47. DO 
39 44 DATA 72 . 74 . 75 , 7F, 77 , 6B . 76 . 

72 . 7D . DO . 72 , 74 . 75 . 7F . 76 . 6B 
16 45 DATA 76 , 75 . 47 . 76 . 4F . 44 . 47 . 

DE. 80 . 6F. 76 , 73. 70. 6E . 7D.DE 
F5 46 DATA 47 . IE , 4F . 43 . 47 . DE . El . 

71. 6E. 65. D7. 55. 92, 84. 84. 84 
60 47 DATA 84,84.64.84.84.84.84, 

84 . 84 , 84 . 84 . 84 . 84 . 84 . 84 , 84 
73 4B DATA 64.84.84.84.84.84.84. 

BE.47.C7.4F.42,47.DE,Ei,7t 
30 49 DATA 6E . 65 . 55 , 9A . 67 . 67 . 67 . 

67.67.67,67,67.67.67.67.67 
28 50 DATA 67.67.67.67.67.67,67. 

67, 67, 67. 67. 67. 67. 67. 9A. 47 
69 51 DATA EO . 4F, 4 1 , 47 ,DE, El . 71 , 

6E, 65. 55. 9A. 67 .67. 67. 67. 67 
9B 52 DATA 67,67.67.67.67.67.67, 



67.67,67.67.67.67.67.67.67 
21 53 DATA 67 , 67 . 67 . 67 . 67 . 9A , 47. 

89. 4F.40.47.DE. El. 71 .6E. 65 
F7 54 DATA 55 . 9A . 67 . 67 , 67 . 67 . E7 . 

OA. 02. OA. 08. 15. 1E.67.67.06 
40 55 DATA OB . OB , 67 . 04 . OB . 02 . 06 . 

15.67.67.67.67.9A.47.B2.4F 
E8 56 DATA 4F . 47 . DE . El . 71 . 6E . 65 . 

55 . 9A . 67 . 67 . 67. 67. 67 . 67 . 67 
6E 57 DATA 67.67.67.67,67.67.67. 

67.67.67.67.67.67.67,67.67 
86 56 DATA 67 . 67 . 67 . 9A , 47 .5B . 4E . 

4E.47.DE.E1.71.6E.65.55.9A 
6C 59 DATA 67.67.67.67,67.67.67, 

67.67.67.67.67.67.67.67.67 
38 60 DATA 67.67.67.67.67.67.67. 

67,67,67.9A.47,04.4E,4D.47 
19 61 DATA DE.E1.71 .6E.65.55.9A. 

67, 67. E7, 10. 15. OE. 13. 13.02 
7A 62 DATA 09 . 67 . 05 . IE . 67 , OB . 02 . 

14 . 67 . 06 , OB . OB. 06 . 09 . 67. 67 
16 63 DATA 67 . 9A . 47. 2D. 4E , 4C . 47 . 

DE. El . 71 ,6E, 65 . 55 . 9A. 67,67 
A7 64 DATA 67.67.67.67.67.67.67, 

67.67,67.67.67.67.67.67.67 
5E 65 DATA 67,67.67.67.67.67.67. 

67.9A.47.D6.4E.4B.47.DE.E1 
14 66 DATA 71 ,6E , 65 . 55 . 9A . 67 . 67 , 

67,67.67.67.67.67.67.67.67 
07 67 DATA 67.67.67.67.67.67.67. 

67. 67. 67. 67. 67, 67, 67, 67. 9A 
C5 68 DATA 47. FE , 4E , 4A . 47 . DE . El . 

71. 6E. 65. 55. 60.84.84.84. 84 
7A 69 DATA 84.64.64.84,84.84.84. 

84 . 84 . 84 . 84 . 84 . 84 . 64 . 84 . 84 
04 70 DATA 84 . 84 . 84 , 84 . 84 . 84 . 8C . 

DC . 47 . 86 , 4E . 49 . 47 . DE . 7D . DE 
13 71 DATA 47. A8.4E.4B.47.DE. 65. 

67.67. 13. OF. OE, 14.67. 17. 15 
F5 72 DATA 08 . 00 . 15 , 06 . OA . 67 . 01 . 

0E.0B.0B,14,67,0A.02.0A,08 
C8 73 DATA 15 , IE, 67 . 01 . 15 , 08 . OA . 

67. 63. 77. 7F. 77. 77. 65. 47, 5A 
E3 74 DATA 4D . 57 . 47 .DE, 65 . 67 , 67 . 

13.08.67.63,01,01,01 .01.67 
E2 75 DATA 10 . OE , 13 , OF , 67 . 63 . 77 , 

77.67. 14. 08.67.67. 13. OF. 06 
62 76 DATA 13 . 67 . 67 . 1 0 , OF , 02 , 09 . 

67. 13.0F.02.65.47.0C.4D.56 
7E 77 DATA 47 . DE . 65 . 67 . 67 . 17 , 15 . 

08.00. 15. 06. OA. 67. 14. 06. 11 
80 78 DATA 02 . 03 . 67 . 67 . 10 . OE . 1 3 . 

OF. 67. 67, OA. 02. OA. 08. 15. IE 
A9 79 DATA 67.14.06.11.02.15.67. 

OE . 14 . 65 . 47 , 3E . 4D. 55 . 47 . DE 
24 80 DATA 65,67.67.04.15.12.09. 

04, OF. 02. 03.67.67.04. 08. OA 
96 81 DATA OA . 08 . 09 . 67 , 67 . 04 . 08 . 

03. 02. 67, OE. 14. 67. 15.02.03 
F6 82 DATA 12.04.02.03.67.13.08. 

65 , 47 . EO . 4D . 54 . 47 , DE , 65 , 67 
75 83 DATA 67.17.15.08.03.12.04. 

02.67.67.06.67.67. 14. OA. 06 
02 84 DATA OB . OB . 02 . 15 . 67 . 67 . 10 , 

08. 15, OC.OE. 09. 00. 67. 17. 15 
3F 85 DATA 08 . 00 . 15 . 06 . OA . 65 . 47 . 

E8 . 4D.53. 47 ,DE, 7D .DE . 47 . 9 A 
3F 86 DATA 4D. 52 .47 . DE . 65 . 67 . 67. 

12. 14.02.67.67. 13. OF. OE. 14 
89 87 DATA 67 .67 . 10 . OE . 13 . OF . 67 , 

OA. 02. OA. 08. 15. IE. 67* 14.06 
5C 88 DATA 11.02.15.67.06.09.03. 

67. 08,09. 02. 65. 47. 4C.4C. 51 
9F 89 DATA 47 . DE . 65 . 67 , 67 , 17 . 06 . 

15 . 13.67. OA . 06 . OC. 02. 15 . 67 
95 90 DATA 1 3 , 08 , 67 . 14 . OE . OA , 17 , 

OB. OE. 01, IE. 67. 14.06. 11,02 
D4 91 DATA 67 . 15 . 08. 12. 13. OE . 09 . 

02 . 14 . 65 . 47 . 5A . 4C . 50 . 47 . CC 
FC 92 DATA 85 . 6F . 76 . 7E . 70 . 6E . F5 . 

71.73.E0.75.74.47.6E.4C.5F 
5F 93 DATA 47 . DE. 80 . 6F . 76 . 73 . 70 

6E.47.15.4C,5E,47,DE.65.67 
29 94 DATA 67, 76 .69 . 67 . 67 . 67 . OB . 

08,06,03.67.61.67. 15.12,09 
39 95 DATA 67 . OA . 02 . OA , 08 . 15 . IE . 
67, 06. OB. OB. 67. 04. OB. 02, 06 



• OC 96 DATA 15 . 47 . C7 , 4C ,5D . 47 . DE . 

7D.DE.65.67.67.75.69.67.67 
19 97 DATA 67 . OB . 08 . 06 . 03 . 67 . OE . 

09.67.17. 15.08.00. 15. 06. OA 
BB 98 DATA 67.01.08.15.67.04.08. 

09. 11.02.15. 14. OE. 08. 09. 47 
00 99 DATA F7 . 4C . 5C . 47 . DE . 7D . DE . 

65,67.67.74.69.67.67.67,08 
82 100 DATA 08 . 06 . 03 . 67 . 60 . OA , 02 

, OA. 76. 60. 6B.7F. 68.76,67,61 
CB 101 DATA 67. OB, 08. 06. 03, 60. OA 

.02.0A.75.60.6B.7F.6B.76.47 
65 102 DATA 98 . 4C , 5B. 47 . DE . 7D . DE 

. 65 . 67 . 67. 73 . 69 . 67 . 67 . 67 . 06 
IB 103 DATA 03,03.67. 14. IE. 14.67 

.04,08,03,02.67.6F,OE.69.02 
17 104 DATA 69 .67 . 67. 77 .67 , 14 , IE 

,14.67.75.77.7l.76.6E,47.4B 
D5 105 DATA 4B , 5A , 47 . DE , 7D . DE. 65 

.67,67.72.69.67.67.67,14. IE 
52 106 DATA 14 . 67 . 7F. 75 , 7F . 67 . 13 

.08. 67. 14. 06. 11. 02. 67. 60. OA 
C6 107 DATA 06 . OE . 09 . 60 . 67 . 60. OC 

. 02 , 15 . 09 . 60. 47 . 65 , 4B. 59 . 47 
Fl 108 DATA DE, 65, 67. 67. 67.67. 67 

.67,67,61.67,60.05.08,08. 13 
72 109 DATA 60 . 47 . 17 . 4B . 58 . 47 . DE 

.7D.DE.65.67.67.71.69.67.67 
IE 110 DATA 67.04.15, 12, 09. 04. OF 

,67.60.0A,06.0E,09,60.67.01 

09 111 DATA OE, OB. 02. 67. 06. 09.03 
. 67. OE. 01 .67. OB. 02. 14.14.47 

9C 112 DATA 3A.4B.67,47,DE,65.67 

. 67. 67. 67.67,67. 67. 13. OF. 06 
D9 113 DATA 09,67.76.72.73.67.05 

.OB. OB. 04. OC. 14.67. 12. 14.02 
BB 114 DATA 67.08.09,02.67.17,06 

, 15 , 1 3 . 67 . 1 1 . 76 . 47 . E5 . 4B . 66 
94 115 DATA 47 . DE, 65 , 67 . 67 . 67 . 67 

.67.67.67. 13,08,67. 14.06.11 

10 116 DATA 02,67. 04. 08. OA. 17. OB 
.02.13.02.67.0A.02.0A.08.15 

5C 117 DATA IE. 47. 8A.4B. 65.47.DE 

.7D.DE. 65.67.67.67.67.67.67 
E8 11B DATA 67. OE. 01. 67, 04. OF. 06 

-15.06.04.13.02.15.67.15,06 
41 119 DATA OA, 67. 12.09.12. 14.02 

. 03 , 67 , 06 . 09 , 03 . 47 . BO . 4B , 64 
13 120 DATA 47. DE. 65. 67, 67. 67. 67 

, 67. 67. 67. 04 . 15 , 12. 09 . 04 . OF 
38 121 DATA 02 . 03 . 67 , 60 . OA . 06 . OE 

. 09 , 60. 67, 01 , OE. OB. 02. 67 . OE 
69 122 DATA 14 . 67 , OB . 02 . 14 . 14 47 

, 63, 4A. 63.47.DE, 65. 67. 67. 67 
4A 123 DATA 67 . 67 , 67 . 67 . 13 , OF . 06 

, 09,67.76 . 70.77. 67 , 05 . OB. 08 
3D 124 DATA 04 . OC . 14 . 67 . 1 2 . 14 . 02 

.67,08,09.02.67.17.06,15,13 
49 125 DATA 67 . 1 1 , 75 . 47 , 09 , 4A . 62 

.47. DE.7D.DE. 65, 67. 67, 70, 69 
40 126 DATA 67 . 67 . 67 , OB . 08 . 06 . 03 

.67.60.0A.02.0A.74.60.67.08 
6A 127 DATA 15 . 67 , 60 , OA, 02- OA. 73 

,60.67.6B,7F,6B.76.47,3A.4A 
2A 128 DATA 61 .47. DE.7D.DE.65 . 67 

,67,7F.69.67.67,67.14.1E.14 
BO 129 DATA 67.7F.75.7F.67. 13.08 

.67.04.15.02.06.13.02.67,08 
Bl 130 DATA 09.02.67.17.06.15.13 

-67,01,OE.OB.02,47.C8.4A.6F 
F8 131 DATA 47 , CC . 85 , 6F , 76 . 7E . 70 

.6E.F5.71.73.E0.73.77.47.DD 
FO 132 DATA 4A . 6E . 47 ,D9 . 67. 73 , 76 

,76.7F.47,E7.4A,6D.47.7D.47 
E5 133 DATA BF . 4A . 6C . 47 ,7D . 7D 7D 

,7D.7D.7D.7D-7D,7D-7D.7D.7D 
39 134 DATA 7D . 7D . 7D. 7D. 7D . 7D . 7D 

.7D.7D,7D,7D,7D.7D.7D.7D.7D 
E9 135 DATA 7D. 7D . 7D. 7D . 7D . 7D. 7D 

,47.B7.4A.6B,47.7D.7D.7D.7D 
7F 136 DATA 7D . 7D . 7D . 7D. 7D, 7D . 7D 

,7D.7D.7D,7D,7D.7D,7D.7D.7D 
CO 137 DATA 7D. 7D. 7D . 7D. 7D. 7D. 7D 

,7D.7D,7D,7D,7D.7D.7D.7D.47 
33 138 DATA 5F,49'.6A.47.7D.7D.67 

.67.67,67.67.67.67.67,67,67 
BC 139 DATA 67.67.67.67.67.67,67 



YOUR COMMODORE december 1987 
77 



LISTINGS 



.67 . 67 . 67 . 67 , 6? , 67 . 67 , 67 . 67 
4D 140 DATA 67 . 67 . 67 . 67 , 67 . 7D . 7D 

.47.78.49.69.47.7D.7D.67.67 
FB 141 DATA 67 . OA . 02 . OA . F7 . IE . 67 

,67. 06. OB. OB. 67. 04. OB. 02. 06 
C7 142 DATA 15.67.17.15.08.00.15 

,06,OA.67.67.67,7D.7D.47.20 
99 143 DATA 49 . 68 . 47 , 7D , 7D . 67 . 67 

,67.67.67.67,67.67.67,67.67 
F7 144 DATA 67.67.67.67.67.67.67 

. 67 . 67 , 67 . 67 . 67 . 67, 67 . 67 . 67 
5B 145 DATA 67 . 67 . 67 . 67 . 7D . 7D . 47 

,C8,49,77,47,7D,7D.67.67.67 
C8 146 DATA 10 . 15 . OE . 13 . 13, 02 . 09 

, 67 . 05 , IE . 67, 67. 67 , 67 . 67 , 67 
73 147 DATA OB , 02 , 14 , 67 . 06 . OB , OB 

, 06 , 09 . 67 . 67 , 67 . 7D; 7D , 47 , FO 
9F 148 DATA 49 . 76 , 47 , 7D . 7D . 67 , 67 

,67,67,67,67.67.67.67.67.67 
CA 149 DATA 67,67.67.67.67.67.67 

.67.67.67.67,67.67.67.67,67 
DB 150 DATA 67 . 67 . 67 , 67 . 7D . 7D . 47 

. 9 A . 49 . 75 . 47 , 7D . 7D . 67 . 67 . 67 
35 151 DATA 75 , 7F , 67 . 06 . 13 , OC. OE 

. 09. 14. D6, 67. 03, 15. OE. 11.02 
10 152 DATA 67. 67, 09,60, 17, F7. 13 

, 67, 67, 67. 7D.7D. 47. 42.48,74 
FA 153 DATA 47 , 7D , 7D, 67 . 67 . 67 . 67 

.67,67,67.67,67.67,67,67.67 
FD 154 DATA 67.67.67.67.67,67,67 

,67,67.67.67,67,67,67,67.67 
AB 155 DATA 20 . 20 . 3A , 3A , 00 . 2D , OF 

,34.00.3A,3A,3A.3A.3A,3A,3A 
13 156 DATA 3A , 3A . 3A . 3A , 3A , 3A . 3A 
,3A.3A,3A,3A.3A.3A.3A.3A,3A 



PROGRAM: DISK-MANAGER 



C6 157 DATA 3A , 3A , 3A . 3A . 3A . 3A . 3A 

,3A.3A.3A,3A,3A.00.55,OF.35 
A3 158 DATA 00 . 3A. 3A, 3A. 3A . 3A . 3A 

. 3A . 3A . 3A . 3A , 3A . 3A . 3A . 3A . 3A 
70 159 DATA 3A . 3A . 3A . 3A . 3A , 3A . 3A 

, 3A , 3A . 3A , 3A . 3A , 3A . 3A , 3A . 3A 
B2 160 DATA 3A , 3A . 3A . 3A . 00 , 00 . 00 

, 38 . 00 , 3A , 3A . 3A . 3A . 3A . 3A . 3A 
F6 161 DATA 3A , 3A . 3A . 3A . 3A , 3A . 3A 

.3A.3A.3A.3A.3A.3A.3A.3A.3A 
BO 162 DATA 3A . 3A . 3A . 3A , 3A . 3A . 3A 

.3A.3A.3A.3A.3A.00.00.O0.38 
20 163 DATA 00 . 3A , 3A , 3A . 3A . 3A . 3A 

.3A.3A.3A.3A.3A.3A.3A.3A.3A 
IB 164 DATA 3A . 3A . 3A . 3A . 3A . 3A , 3A 

, 3A . 3A . 3A . 3A , 3A . 3A . 3A , 3A . 3A 
EF 165 DATA 3A . 3A . 3A , 3A, 00 . 00 . 00 

. 38 . 00 . 3A, 3A . 3A . 3A . 3A . 3A . 3A 
19 166 DATA 3A . 3A, 3A . 3A . 3A . 3A. 3A 

, 3A . 3A . 3A . 3A . 3A . 3A . 3A . 3A . 3A 
50 167 DATA 3A . 3A . 3A , 3A . 3A , 3A . 3A 

. 3A , 3A . 3A, 3A, 3A . 00 . 00 . 00 , 00 
4D 168 DATA 00 . 00 . EE .EE . EE . EE , EE 

. EE . EE . EE . EE . EE . EE , EE , EE . EE 
8E 169 DATA EE . EE . EE . EE . EE . EE . EE 

.EE.EE.EE.EE.EE.EE.EE.EE.EE 
80 170 DATA A9 . 23 . 8D . OB, 08 . A9 . 08 

, 8D . OC . 08 . A9 , 00 . 85 . FB . A9 , 06 
88 171 DATA 85 . FC . AO . OD . Bl . FB , 49 

. 47 , 91 . FB . C8 . DO . F7 . E6 . FC . A5 
22 172 DATA FC . C9 . OF . DO . EF . 60 . A2 

, 00 . BD , 26 . 10 . 9D . A7 . 02 . E8 , EO 
22 173 DATA 59 . DO , F5 . 4C . A7 . 02 , 78 

, A9 . 34 . 85 . 01 . A9 . 00 , 85 , FB . A2 
72 174 DATA 08 . 86 . FC . 9 1 . FB . C8 . DO 



. FB , E6 . FC . DO . F7 . A9 . 37 , 85 . 0 1 
BD 175 DATA 58 . 4C . 66 . FE . 00 . 00 - 00 

. 00 . 00 . 00 . 00 . 00 . 00 . 00 . 00 . 00 
4D 176 DATA A9 . 00 . A8 . 85 . FB . 85 . FD 

. A9 . 80 . 85 . FC . A9 . 06 . 85 . FE . Bl 
7F 177 DATA FB . 9 1 . FD, C8 . DO . F9 . E6 

.FCE6.FE.A5.FC.C9.A0.D0.EF 
5F 178 DATA A9 . 08 . AA . A8 . 20 . BA , FF 

, A9 . OC . A2 . 94 . AO . 88. 20 . 3D . FF 
84 179 DATA A9 . 01 . 85 . 2B . A9 . 08 . 85 

.2C.A9.2B.A2.50. AO, 10.20. D8 
32 180 DATA FF . 4C . 66 .FE . 4D . 45 . 4D 

. 4F. 52,59. 20. 43. 4C . 45. 41 .52 
AA 181 DATA 00,00.00.00.00.00.00 

. 00 . 00 . 00 . 00 . 00 . 00 . 00 . 00 . 00 
8C 182 : 
6D 183 : 

80 184 I:::::::::::::::::::::::: 



06 185 : MEMORY ALL CLEAR BY L 

ES ALLAN 
BA 186 : 

22 187 : KIND' ASSISTANCE BY GAVI 

N SELLMAN : 
8B 188 s FOR HIS 64 WHEN MINE WA 

S BROKEN! i 
CI 189 : 

i 

BF 190 : 28 ATKINSON DRIVE NEW 

PORT IW : 
BF 191 : 

08 192 ::::::::::::::::::::=:::: 
; : : i : : : t : : : 



,64,64.64,64,64.64.64,64.64. 
64, 1126 

85 160 data 64.64,64,64.64,64.6 
4 . 64 , 64 , 1 15 , 160 . 66 . 3 . 32 , 45 , 3 
2,1029 

fd 170 data 3,15.16,25.32.6.9,1 
2 , 5 , 32 , 32 , 32 . 32 . 32 , 32 . 32 . 347 

4c 180 data 32,66.160.66,30.32, 
45.32,19,1.22.5.32,6,9,12.56 
9 

d3 190 data 5.32,32.32,32.32.32 
.32.32,66.160,66.16,32,45.32 
,680 

fd 200 data 18.5.14.1.13.5.32.6 
.9.12.5.32.32.32,32.32.280 

38 210 data 32.66,160.66.6.32.4 
5.32,6.15.18.13.1.20.32.4.54 

8 

87 220 data 9.19.11.32,32.32.32 
, 32.32.66. 160.66.0.32.45.32. 

632 

28 230 data 18.5.19.5.20.32.4.1 
8.9.22.5.32.32.32.32.32.317 

82 240 data 32.66,160.66.24.32. 
45 . 32 . 5 , 24 . 9 . 20 . 32 . 21 . 20 , 9 . 5 
97 

ce 250 data 12.9.20.25.32.32.32 
,32,32.66,160.66. 11 .32.45.32 
,638 

9a 260 data 11.9.12.12.32.21.20 
. 9 . 1 2 , 9 . 20 . 25 , 32 . 32 . 32 . 32 . 32 
0 

e6 270 data 32.66.160.66.19.32. 
45 . 32 . 19 , 3 . 18 . 1 . 20 . 3 . 8 , 32 . 55 
6 

7c 280 data 6,9,12.5.32.32,32.3 
2 . 32 . 66 . 160 , 66 . 22 . 32 . 45 . 32 . 6 
15 

35 290 data 22.1.12,9,4.1.20.5. 

32.4.9,19.11.32.32.32.245 
9d 300 data 32.66.160.66,12.32. 

45.32.12.15,1.4.32.6,9,12.53 

6 

7a 310 data 5.32.40.44.56.41.32 
.32,32,66,160.66,31.32,45,32 



,746 

bO 320 data 12.15,1.4.32.6.9.12 

. 5 . 32 . 40 . 44 . 56 . 44 . 49 , 41 . 402 
df 330 data 32.66.160.66.9.32.4 

5.32.9.14.9.20.9.1.12.9,525 
aO 340 data 19.5,32.4.9.19,11.3 

2.32,66.160.107.64.64.64.64. 

752 

c3 350 data 64,64.64,64.64.64.6 
4.64,64,64,64.64,64.64,64,64 

,1024 

Od 360 data 64.115.160.66.19.5. 

12,5,3.20.32.3.8. 15,9.3,539 
50 370 data 5.58.32.32.32.32.32 

. 32 . 32 . 66 . 1 60 . 66 . 32 . 32 . 32 . 32 

.707 

de 380 data 32.32.32.32.32,32.3 
2.32.32.32.32,32.32,32.32,32 
,512 

38 390 data 32.66.160.109,64.64 
,64,64.64.64.64.64.64.64.64. 

64.1135 

a2 400 data 64.64.64.64,64.64.6 

4.64,64. 125. 160. 160 . 160. 160. 

160. 160, 1661 
99 410 data 160,160.160.160,160 

,160. 160. 160. 160. 160. 160. 160 

,160.160,160.160,2560 
cB 420 data 160,105.169.15.162, 

8.160,15.32.186,255.173.51.2 

07, 162.54, 1914 
a7 430 data 160,207.32,189,255. 

76, 192, 255.32.40.204 . 169. 135 

. 160. 207. 32. 2345 
la 440 data 30.171.162.17.160.1 

0 . 24 . 32 . 240 . 255 . 169 . 130 . 160 , 

207,32.30.1629 
be 450 data 171,32.228,255.240. 

244 . 201 , 1 3 . 240 . 65 , 201 . 20 , 208 

.11.169.157,2455 
68 460 data 32.210.255.206,51.2 

07.76.214.203,201.31.144.221 

,201.96,176.2524 
40 470 data 217.32.210.255,174. 

51 .207, 157.54,207.238.51 . 207 

,76.214.203.2553 



84 1 rem ***•****•"•****"*•• 

52 2 rem * program to load * 
b8 3 rem • disk manager ' 
8b 4 rem * 

13 5 rem * by m.e.catley • 

27 6 rem »*» •*.."**»•» 

63 10 bl-104 :ln-70 :sa=5158 
0 

f9 20 for 1-0 to bl:cx-0:for d- 
0 to 15 

9f 30 read a:if a>255thenprint" 
number to 1 orge " ; In* ( 1* 10) : s 
top 

28 40 cx-cx+a:poke sa+l"16+d,a: 
next d 

a9 50 read a: if aXcx thenprint 
"error in 1 i ne" ; ln+ ( 1* 10) : st 
op 

92 60 next 1 

27 70 data 205.165.205.106,206, 

38 . 205 . 128 . 205 , 147 , 206 . 248 . 2 

07.1.206.24.2502 
cd 60 data 206.43.205,55.205.10 

1 , 205 . 142 . 5 . 83 , 69 . 76 . 69 . 67 , 8 

4.32. 1647 
e5 90 data 67,72.79,73.67.69,58 

.32,32.32.32.32.32.32,194. 13 

.916 

72 100 data 29.29,29,29.29,29.2 
9,29,18.32.146.194.32.32,32. 

32.750 

5b 110 data 32.32.32,32.32.32.3 
2.32.32,32.32.32.32,32.32,32 

,512 

35 120 data 32.0.233.112.64.64, 
64,64.64.64.64.64,64.64.64,6 

4.1145 

5e 130 data 64.64.64.64.64,64,6 
4.64.64,110.160.66,4.9.19.11 
.955 

fb 140 data 32,13.1.14.1.7,5.18 

,32.13.32.3,1.20.12.5.209 
2d 150 data 25.66.160.107,64.64 
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f d 



fd 



61 



60 



38 



la 



e2 



ca 



70 



12 



5c 



cO 



96 



d3 



db 



f c 



17 



81 



OB 



Ob 



Oc 



c5 



14 



58 



f9 



d5 



3e 



480 data 162.0,142.51,207,17 

4,51 ,207, 157,54.207,232.169, 

48.157.54.2072 

490 data 207.232.169.56.157. 

54 . 207 . 232 . 1 42 . 5 1 . 207 . 96 . 1 62 

.16,160,10,2160 

500 data 24.32.240.255.169.1 

48, 160,201,32,30.171.162.16. 

160.10,24.1834 

510 data 76.240,255.169,188. 

160,207.76. 203. 203. 169. 154. I 

60.207.76.203,2746 

520 data 203,169.173,160,207 

,76, 203.203.32.40, 204. 169, 23 

5,160,207.32.2473 

530 data 30.171,32,228.255.2 

40 . 25 1 , 201 . 78 . 208 . 5 . 104 . 1 04 . 

76. 127.206.2316 

540 data 201.89.208.238.96.1 

69. 177, 141 . 234. 204, 169.252, 1 

41,237,204.169.2929 

550 data 254.141.235.204.169 

,0. 133.254. 169.8. 162,4.160. 1 

60.32.224.2309 

560 data 204.169.0,133.254.1 

69.8, 162.216, 160. 164.76, 224. 

204, 169 . 1 .2313 

570 data 133.43.162.8.134.44 
, 32 . 1 86 . 255 ,169.0. 141. 51. 207 
.32. 144. 1741 

580 data 255.32,77.204.173,5 

1.207,162,54. 160.207.76.189. 

255. 169, 177. 2448 

590 data 141.234,204.169.252 

. 141 . 235. 204. 169 . 254. 141 .237 

. 204. 169,0. 133, 2887 

600 data 254.169.8.162,4.160 

. 160.32.224.204.169,0. 133.25 

4. 169.8, 2110 

610 data 162.216,160.164.133 

.252.134,253.132.255.162.19. 

160.23.177.252.2654 

620 data 145.254,136.16.249. 

169,40,24. 101.252. 133.252. 14 

4,2.230,253.2400 

630 data 169,24.24.101.254.1 

33, 254. 144.2. 230. 255.202. 16. 

222.96. 169.2295 

640 data 177 . 141 . 234 . 204 . 169 

, 252. 141, 237, 204. 169, 254. 141 

.235,204.169.206.3137 

650 data 133.254,169.8,162,4 

. 160. 201 .32. 224.204. 169, 169. 

141.234.204.2468 

660 data 169.1.141.235.204.1 

69 . 8 . 162 , 2 16 , 76 . 224 , 204 . 1 60 . 

0,32.154.2155 

670 data 204.169.0.162,1,160 
.8.32.213.255.8. 169.192.32.1 
44.255.2004 

680 data 40.176.15.134.45.13 
4 .47. 134.49. 132.46. 132.48. 13 
2.50.32. 1346 

690 data 94.166.169.0,141.51 
. 207 . 76 , 1 82 . 205 . 160 . 1 . 76 . 58 . 
205.160.1951 

700 data 1.32.154.204.169.43 
. 166 . 45 . 1 64 . 46 . 32 . 216 . 255 . 1 6 
9.192,32.1920 

710 data 144,255,76.94.205,1 
69 , 78 . 32 . 1 2 , 204 . 32 . 63 , 204 . 32 
.84.204,1888 

720 data 76,182.205.169.73.7 
6 , 46 . 206 . 1 69 . 85 . 141 . 54 . 207 . 1 
69.74. 141 . 2073 
730 data 55.207.169.2.141.51 
,207.76, 182.205. 169.67.32. 12 
.204.32, 1011 

740 data 70.204.169,61,32,17 
, 204.32. 196. 203,32. 174, 203,3 
2.40.204.1873 

750 data 169,207,160.207,32, 



30.171.162.15.32.198.255.162 

.0.32.207.2039 
f5 760 data 255.201.13.240.6,15 

7 . 54 . 207 . 232 . 208 . 243 . 162 , 3. 1 

89.54,207.2431 
50 770 data 201,44.240.6.32.210 

.255.232.208,243. 173.54,207, 

13,55.207.2380 
a5 780 data 201.49.208.22.232.1 

69 . 32 . 32 . 2 10 . 255 . 189 . 54 . 207 . 

201.48.240.2349 
73 790 data 3.32.210.255.189.55 

. 207 . 32 . 21 0 . 255 . 32 . 204 . 255 . 1 

69.15.32.2155 
ab 800 data 195.255.169.254.133 

.161,165.161.208.252,76.127. 

206.169.83,32.2646 
d8 810 data 12,204.32,77.204.32 

. 84 , 204 . 76 . 1 82 . 205 . 1 69 . 82 . 76 

.168.205.2012 
3a 820 data 169.86.32.12.204.76 

. 182 . 205 . 173. 141 . 2 . 201 . 6 . 240 

,3, 108. 1840 
Of 830 data 52.207.173.52,207.1 
74.53.207.120. 141 .20.3. 142.2 

1.3. 88. 1663 
la 840 data 56,32.240.255.142.4 
7,207.140.48.207,173,134.2.1 
41.49.207.2080 
ed 850 data 173.33.208.141,50.2 

07,165.252.72.165.253.72.165 
.254.72.165,2447 

3d 860 data 255.72.32.186.204.1 
69.0.141.33.208.133.207.169. 
1.141.134.2085 
60 870 data 2.133.204,32.11,205 
, 32 , 228 . 255 . 240 . 251 . 162 . 1 1 . 2 
21.94,207.2288 
eO 880 data 240.6.202.16.248.76 
.130.206.138,10.170,189.124. 
201.72.189.2217 
3d 890 data 125,201.72.189.106. 
207 . 1 33 . 254 , 189 . 107 . 207 , 1 33 , 
255 . 160.20. 177, 2535 
35 900 data 254.73.128.145.254. 
136 . 16 . 247.76.40, 204 , 174 .47. 
207, 172,48.2221 
9e 910 data 207.24,32.240.255,1 
69.0,133,204.169.1.133.207.1 
73.49.207,2203 
30 920 data 141.134.2.173.50.20 
7.141 .33.208. 165. 1 .41.254. 13 
3.1.32,1716 
a5 930 data 113.204.165.1.9.1.1 
33,1.104.170.104,168,104.133 
. 255. 104. 1769 
44 940 data 133.254.104,133,253 
. 104,133.252,152.72.138,72,9 
6.32.183.206,2317 
el 950 data 32,34.207.108.52.20 
7.32.183.206.108.52.207. 173. 
20.3.201 , 1825 
ad 960 data 52.208.10.173.21.3. 
201 . 206, 240. 24. 173. 20.3. 141 
52.207, 1734 
16 970 data 173,21.3,141.53.207 
.169.52.162.206.120.141.20.3 
,142,21.1634 
88 980 data 3.88,96,0,0.0.0.0,0 

.0.0.0,0,0.0,0. 187 
72 990 data 0.0.0.0.0.0.0,0.0.0 

.0.0.0.0,0.0.0 
78 1000 data 0.0.0.0.0.0.0.0,0. 

0,0,0.0.0,0,0.0 
87 1010 data 0.0.67,94.62.70.64 

. 88 . 75 . 83 , 86 . 76 , 95 . 73 . 1 30 . 4 , 
1087 

5c 1020 data 170 . 4 . 210 . 4 . 250 . 4 . 

34.5.74.5.114.5.154.5.194.5. 
1237 

c6 1030 data 234.5,18.6.58.6.17 
5.32.157.157,0.69,78.84.69,8 



2. 1230 

63 1040 data 32.79,76.68.32.70. 
73 . 76 . 69 . 78 . 65 . 77 . 69 , 0 . 69 . 76 
. 1011 

3c 1050 data 84.69.82.32.78.69. 
87.32.70,73.76,69.78.65.77.6 
9, 1110 

aO 1060 data 0.69,78.84.69.82.3 

2 . 70 . 73 . 76 . 69 , 78 . 65 . 77 . 69 . 0 . 
991 

66 1070 data 69.76,84,69.82.32. 

68.73,83,75.32.70.65.77,69.4 
4. 1078 

f2 1080 data 73.68.0,60.73.83.7 

5 , 32 , 83 , 84 . 65 , 84 . 85 . 83 , 58 , 32 
. 1046 

73 1090 data 32.32,32,13,29.29, 
29 . 29 . 29 . 29 . 29 . 29 , 29 , 29 . 0 , 65 
,464 

le 1100 data 82.69.32,89.79.85, 
32.83.05.82.69.63,32.91.89,4 
7. 1109 

Id 1110 data 78.93.0.0.0,0.0.0. 

0.0.0.0,0,0.0.0. 171 
40 1120 Poke43. 124 : poke44.201 : p 

oke45.0:poke46.20G 
e2 1130 save"disk manager". 8 
39 1140 print" (clr) disk manager 

activated" :sys53000 
de 1150 Poke43,l: P oke44.8:new 



I'KOI.R \\l I YI'RO 



] 



100 rem typro p.g.simonds dece 
rnber 1986 

101 rem 

102 rem 

104 rem to help type this progra 
m into your computer, all lines 
containing 

105 rem print (ed) control charac 
ters are followed by a rem (ark) 
line describing 

106 rem the characters. 

107 rem- 

108 rem these rem lines, with a 
line number ending with 1, i.e. 
4221, need not 

109 rem be typed in & 5276.1526. 
4036.7024 and 14076 need not be 
typed in. other 

110 rem rem(ark) line3 before li 
ne 1000 need not be typed in. a 
1 1 other rem 

111 rem statements should be lef 
t in as they mark the start of s 
ect ions ca 1 led 

112 rem in goto statements. 

113 rem 

114 rem 

115 rem 

116 rem examples of mnemonics u 
sed 

117 rem 

118 rem 

119 rem Iclr) shift & clr/hom 
e 

120 rem 

121 rem (down] cursor down 

122 rem 

123 rem lup] cursor up 

124 rem 

125 rem (leftj cursor left 

126 rem 

127 rem (right) cursor right 

128 rem 

129 rem (down2l cursor down, tw 
i ce 

130 rem 

131 rem (down2 . right . etc 1 is on 
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e print statement of cursor down 
twice . cursor 

132 rem right 
once, followed by any printed t 

ext. 

133 rem 

134 rem Idown) & [up) describes 
separate print statements on a 

s ing le I i ne . 

135 rem 

136 rem Irevonl reverse on - co 
ntrol & 9 

137 rem 

138 rem Irevoffl reverse off - 
control 6. zero 

139 rem 

140 rem tflashon) flash on - co 
ntrol & comma (.) 

141 rem 

142 rem iflashoff) flash off - 
control & full stop {.) 

143 rem 

144 rem Is+01 shift & zero 

145 rem 

146 rem Is*" 1 shift & ' 

147 rem 

148 rem |s+-l shift & - 

149 rem 

150 rem IblackJ control & 1 (et 
c. ) 

151 rem 

152 rem [orange! commodore logo 
& 1 (etc.) 

153 rem 

154 rem (homel clear/home 

155 rem letcl shows that text f 
ollows the control characters. 

156 rem 

157 rem (space7| shows 7 spaces 

158 rem 

1000 rem typro - writer and proc 
esser - p g simonds - december.l 
986 

1010 print "(clrl (whtl ":open4.4.7 
: color4, 1 :color0,9,4:pr intchr$(l 
4) :vol2:print#4 

1011 rem (clr.whitel 

1015 n-l:a«15:b-15:C-146:d-17:s= 
0 : pp=0 :W-0: al-"" : ns$-"" : rf -0 : d$- 

"":rs-l :gg$-"" 

1020 di=200:dims$(di) :dima(di> :d 
imb(dil idimcldi) :dimml$tdi) :dimm 
2$(di) :dimd(di) 

1030 a(l)~15:b[l)-15:c(l)-146:d( 
l)-17:ml$U)="(orng) Cbrn) ";m2$(l 
)-"(orng) (brn) " 

1031 rem I orange . brown J & [orang 
e . brown 1 

1040 print"(clr) (downl (down) (dow 
n) (down) (rght) (rght) (rght)menu o 
r new page or old? (m/n/o) " : getk 
eynsS: if ns$-"o , 'then9030 

1041 rem [clr.down4.right3.etcl 
1045 if ns$-"m'thenmd ! »l : goto4170: 
else if ns$="n"thenl050:elsel040 

1050 input" (down) (down) (down) (do 
wn) (down) (down) (down) (rght) (rght 
) (rght) characters per line? (2-1 
64) " ; w: ifw>164orw<2thenl050 

1051 rem [down? . r ight3 . etc 1 

1060 z-0:print"{clr) (down) (down) 
a-": a, :print"b-";b, ;print"c-":c, 
: print "d=" ; d : if n-0thenn=l 

1061 rem [clr,down2.etc| 

1070 bS-" " : pr i nt " ( r vs) line numbe 
r":n; "(of f ) " :gosub2000: print "(rv 
s) ($1301 I (off) ($1321 ( lef t) 

1071 rem [revon. etc) & Irevoff! 
& [ revon , f 1 ashon . s+0 . revof f . f 1 as 
hof f . left) 

1080 rem composition and line pr 



inting mode 
1085 getkeya$ 

1090 if a$=" (rght) "ora$-" "thena$ 
":gotol340 

1091 rem (right) fi. (space) & (3P 
ace ! 

1100 if a$~"-"ora$-"-"ora$-"-"ora 
$«"-"thenl340 

1101 rem 1st*) & (3+-1 S (minus) 
& lequals) 

1110 ifa$=chr$(157)andlen(b$)-0t 
henlOSO 

1120 ifa$=chr$(201andlentb$)-0th 
en!080 

1130 if a$-chr$(144> thena=15 : goto 
1440 

1140 if a$-chr*<16> thenpr intchrS ( 

18) ; :rf-l :gotol080 

1150 ifa$-chr$(5)thena-14:gotol4 

40 

1160 if a$-chr$(20) thenb-15:gotol 
440 

1170 ifa$*chr$(159)thenb-8:gotol 
440 

1 180 if a$=chr$(13) thena$~"" :goto 
1080 

1190 ifa$-chr$(34)thenb$=b$tchr$ 
(34) :printchr$(34) ;chr$(34) ;"(le 
ft) (rv3) ($130) t (off ) ($132) (left) 
": :gotol370 

1191 rem f lef t . revon . f lashon . s+0 
,revoff .1 lashoff .left) 

1200 if a$-chr$(157)thena$~chr$<2 

0) 

1210 ifa$-chr$(156)thenc-l8:rf-l 

:printchr$(16) : :gotol440 

1220 if a$-chr$ (30) thenc-146:rf =0 

: gotol440 

1230 if a$-chr$ (1461 thenprinta$: : 

rf-0:gotol080 

1235 if a$'Chr$(20)thenl610 

1240 if a$-chr$(20) thenb$- lef t $ I b 
$. ( len(b$)-l) 1 : print" (of f) (left 
Kief t) (rvs) ($130) t (off ) ($132) (1 
eft) "; : gotol080 

1241 rem (revof f . space . lef t2 , rev 
on. f lashon. s t0. revof f , f lashoff . 1 
eft) 

1250 ifa$-chr$(129)ora$-chr$( 149 
)ora$=chr$( 150) ora$-chr $ ( 151) the 
nlOSO 

1260 if a$*chr$<153)ora$=chr$ ( 154 
) ora$-chr$(155)ora$-chr$(152) the 
nlOSO 

1270 if o$-chr$(147)ora$="(up) "or 
a$-" (down) "ora$-chr$ ( 148) thenlOS 
0 

1271 rem [upj & (down) 

1280 if a$-chr$(31) thend-145 : prin 

tchr$(142) ; :gotol440 

1290 ifa$-chr$(158)thend-17: P rin 

tchr$(14) ; :gotol440 

1295 if a$=" . "ora$-" : "thens-1 

1300 if a$-=chr$(27) andle-lthen513 

0 

1310 if a$=chr$ (271 and le=0thenn-n 
-l:b$="":goto4000 

1320 if a$=" (home) "and le-Othenpr i 
nt" ":goto3000 ■ 

1321 rem [homel 

1330 if Q$="(home) "andle-lthenpr l 
nt" ":goto5140 

1331 rem (home) 
1340 b$-b$4a$ 

1350 if rf -lorc-18thenpr intchr$ ( 1 
8) ; 

1360 printa$; 

1370 if len(b$Kw+zthenpnnt"(rvs 
) ($1301 T (off) ($132) ( lef tl "; 

1371 rem ( revon, f 1 ashon . s»0 . revo 
f f . f lashoff . left) 

1380 if len(b$) >(wtz-10) thensound 



1 . 1000,5 

1390 if len(b$) >(w+z-5) thensoundl 
.800,5 

1400 if len(b$) >(w+z-3) thensoundl 
.600.50 

1410 if len(b$) >tw+z-l) andle-lthe 
npr i nt : got o5 140 

1420 if len(b$) > (w+z-l I and le-Othe 

nprint:goto3000 

1430 gotolOSO 

1435 rem display control codes 

1440 if len(b$) -Othenprint" (up) (U 
p) "; :gotOl460 

1441 rem [up2| 

1450 forp>ltolen(b$) :print"(left 
) " : : nextp : print " (up) (up) " 

1451 rem [left) & [up2J 

1460 print"(off) 

1461 rem [revof f , space37) 

1470 prinflupl " ; 

1471 rem (up) 

1480 if c = 18thenprintchr$(181 : 
1490 print"a-";a. : print "b=" ; b, :p 
rint"c-":c. : pr i nf'd-" :d : if rf -1 th 
enprintchr$(18) : 

1500 print "(down)": 

1501 rem [downl 

1510 iflen(b$) -z-Qandz-0t hen 1525 

1520 f orp-ltolen(b$) :print"(rght 
) "; : nextp 

1521 rem [right) 

1525 ifa$ = "(blk) "ora$-"(whtl "ora 
S-"(pur) "ora$-"(grn) "ora$-"(blu) 
"ora$-""thenprintchr$(148) ;" ": 

1526 rem[black)S Iwhitel & [purp 
lei 6. (green) & [blue! S> [yellow 
) & (space. left) 

1530 if a$=" (pur) "thenb$* i b$ ichr$ ( 
18) :z-z+l:print"(rvs) ($130) (blk) 
5(wht) (off) ($132) "; 

1531 rem [purple) & (revon, flash 
on. black, 5, white .revof f . f lashoff 

I 

1540 if o$="(grn) "thenb$=b$+chr$ ( 
146) :z«z+l; print" (rvs) ($130) (blk 
)6(wht) (off) ($132) ": 

1541 rem (green) S« [revon, f lasho 
n, b 1 ack. 6 . white, revof f , f lashoff 1 

1550 ifa$-"(blk) "thenb$-b$*chr$ < 
15) :z'Z+l : print "(rvs) ($130) (blk) 
1 (wht) (off) ($132) H : 

1551 rem (black) & [revon. f lasho 
n. black, 1 . whi te , revof f ,f lashoff 1 

1560 if a$-" (wht) "thenb$-b$'chi $ ( 
14) :z=z+l: print "(rvs) ($130) (blk) 
2(wht) (off) ($132) "; 

1561 rem [white) & [revon . f 1 asho 
n, black . 2 .white . revof f . f lashoff I 

1570 ifa$-"(blul "thenb$~b$+chr$< 
145) :z=z+l :print"(rvs) ($1301 (blk 
)7(wht) (off) ($132) "; 

1571 rem Ibluel & (revon . f lashon 
. black . 7. white . revof f . f lashof 1 I 

1580 if a$ a " (ye 1 ) ■"thenb$-b$-*ch! $ ( 
17) :z-z+l:print"(rvsl ($130) (blk> 
8(wht) (off) ($132) 

1581 rem (ye 11 owl 6. Irevon, flash 
on, black, 8. white , revof f . f lashof f 
I 

1590 ifa$=chr$(20)thenl240 
1600 gotolOSO 

1605 rem delete control codes in 
side text 

1610 z$=right$(b$.l) 

1620 ifz$-chr$(15) thenz-z-1: a-14 

:gotol690 

1630 ifz$-chr$(14)thenz=z-l :a-15 
: gotol690 

1640 if z$-chr$(18) thenz-r.-l : c-14 
6:rf-0:gotol690 

1650 if z*-chrSf 1461 thenz-z-1 :C=1 



YOUR COMMODORE december 1987 
80 



LISTINGS 



► 



8:rf-l :9Otol690 

1660 if z$-chr $ (145) thenz-z-1 :d = l 
7: pr i ntchr$( 141 ; :gotol690 
1670 if zJ-chr$( 17) thenz-l- I sd-14 
5:printchr$(142) ; :gotol690 
1660 gotol240 

1690 print" " : : pr intchr$ ( 20) : : go 
tol440 

2000 rem typing grid subroutine 
2010 if pp=0then2040:e lseif w< 2 the 
nl050:else2020 

2020 print left.$(ggS,w-l) ;">" : 

2030 forp-ltow: print") left) " : : ne 
xtp : return 

2031 rem [left) 

2040 gl$~" .1.2 
3.4.5 

6" 

2050 g2$-" .7.8 
9 . c 11 

1" 

2060 g3$="2 13 14 

15 1.6 
2070 9g$'9l**g2$+g3$:pp*l 
2080 goto2010 

3000 rem print one line routine 
3010 if rf =1 thenpr intchr$ (146) 
3020 ifc-18thenprint#4.chr$(27) : 

"e" ; 

3030 ifa*14thenprint#4. chr J ( 27) ; 

"W"; 

3040 print#4.chr$la) :C hr$(c) ; chr 

$(d) :b$;chr$(b> ; 

3050 print#4,chr$(27) : "x" 

3060 s$(n)=b$:bS- ,,M : a (n> *«:b(n) - 

b:c(n)=c:d(n)-d 

3070 k-n:gosub6000 

3080 getkeycJ : if c$^"c"then3100 

3090 if c$-"tn"then4000:elsesoundl 
.800. 30:prinf '(down) press 'c' 

or 'm" " :goto3080 

3091 rem ldown.space3.etc| 

3100 z=0m-n+l :print ! ifc-18thenp 
rintchr$(18) : 

3110 print"a-" : o, :print"b«";b. :p 
rint"c-":c. :pr)nt"d-":d 

3120 print" Crvsl line number "jn:" 
(of f ) " :go3ub2000 : print" (rv3l ($13 
0) ' (off) ($132) ( left) " ; : gotol080 

3121 rem Irevon.etcl & Irevoffl 

fi [re von, f Kishon . s i 0 . t evof f . f Ian 

hof f . left | 

4000 rem menu 

4010 ifn<lthenn-0 

4020 print:print" m e n u - pr 

ess h for help, m-" ; f re 1 8) :md-0 

4030 getkeyd$ 

4035 ifd$="c"andw<2thenprint" (cl 
r) " :gotol050 

4036 rem [clr| 

4040 if d$-"c"andmd-I thenpr int" (c 
Ir) " :goto3100 :e lseif d$-"c"andmd" 
0then3100 

4041 rem [clrl 

4050 if dS'"p"andmd^l thenpr int"(c 
lr) ,, :goto6000:e)seifdl-' , p"andmd- 
0then6000 

4051 rem [clrl 

4060 if d$-"s"andmd-l thenprint" (c 
lr) ":goto7000:elseifd$="s'-andmd = 
0then7000 

4061 rem (clrl 

4070 if d$^" 1 "andmd-lthenprint"(c 

lr) " :9Oto9000:el3e ifd$-'"l*'andmd™ 
Othen9000 

4071 rem Iclrl 

4080 if dt-"r"thenl0000 

4090 if d$-"e"andmd-l thenpr int"(c 

lr) ":goto5000:elseif d$*"e"andmd= 

OthenSOOO 

109 1 rem [clrj 



4100 ifd$-"a"andmd-lthenprint"(c 
lr) got ol 1000 :elseifd$-"a"andmd 
-Othenl 1000 

4101 rem [clr) 

4110 if d$-"d"andindM thenprint" (c 
lr) ' , :gotol3000:elseifd$'"d"andmd 
-0thenl3000 

411 1 rem [clr] 

4120 i fd$="i"thendi rectory : goto4 
000 

4130 i fd$~"m "a ndrnd-l thenprint " (c 
lr) ";gotoI4000:elseifd$="m"andmd 
=0theni40Q0 

4131 rem [clrl 

4140 if d$-"h"thenmd-l :goto4170 
4150 ifd$-chr$(189) thenn a 0 : w-0 : r 
unlOOO 

4160 goto4030 

4170 print" (clr) (down) add or d 
elete 1 ine(s) a" 

4171 rem [ c lr .down . space2 . etc] 

4180 prinfldown) continue next 
line of page c" 

4181 rem I down . space2 . etc] 

4190 prinfldown) copy line(s) 
over other line(s)...d" 

4191 rem (down . space2 . etcl 

4200 prinf'(down) edit an exist 
ing line e" 

4201 rem [down, space2. etc J 

4210 prinffdown) full menu on 
screen h" 

4211 rem Idown . space2 . etc 1 

4220 print"(down) index of file 
s on disk i '• 

4221 rem (down. space2. etcl 

4230 print" (down) load file fro 
m disk drive 1" 

4231 rem [down. space2. etc] 

4240 prinfldown) merge disk fi 
le with memory t 'm" 

4241 rem I down . space2 . etc I 

4250 print" (down) print full or 
part copy of page...p" 

4251 rem [down . space2 . etc I 

4260 print" (down) review page f 
rom 1 i ne one r " 

4261 rem [down. space2 . etcl 

4270 prinf'(down) save file to 
disk drive s" 

4271 rem (down. space2. etcl 

4200 prinfldown) (rvslerase ol 
d page and start next.com+x" 
4281 rem [down . space2 . revon. etc) 
4290 goto4030 
5000 rem edit line routine 
5010 le=l 

5020 input-(down) (down) (rght) (ra 
ht) (rght) line number to be edite 
d" : ee 

5021 rem [down2 . r ight 3 . etcl 
5030 if ee<loree>nthen4000 

5040 print"(rvs) line number" : ee ; 

5041 rem [revon. etcj & [revoffl 
5050 ifd(ee) -17 thenpr intchr$( 14) 

5060 ifd(ee)-145then P rintchrS(14 

2) ! 

5070 ifc(ee)-lflthenprintchr$(18l 



5080 av 



'e) :gosub5200: ifa'ee 



) ^Othena(ee) -15 : blee) -1 5 : c(ee) -1 
46 :d lee) =17 

5090 a-a(ee) :b=b(ee) :cc(ee) :d-d 
(ee) 

5100 print"(rvs)a»";a(ee) .: print 
"b-":b(ee) . : pri nt "c-" : c lee) . : pri 
nt"d«";d(ee) 

5101 rem [revon, etc) 

5110 z-0 : print :gosub2000 : print" f 
rvs) ($130) T (of f ) I $132) ( lef t) " : 



5111 rem ( revon . f lashon . s+0 . re vo 

f f . f loshof f . lef 1 1 

5120 bl-"":gotol080 

5130 le-0:s$(ee) -s$(ee) :b$-"":a( 

ee) -arbleel -b:c(eel »c:d(ee) -d:ao 
to5160 

5140 le-0 

5150 s$(ee) -b$ :b$="" :a(ee)»a:b(e 

e) ^b:c(ce) -c :d (ee) -d 

5160 k=ee :gosu)>8000 

5170 if rf-lthenprintchr$(146) :rf 

-0 

5180 goto4000 

5200 rf =0:forp-ltolen(av$) 

5210 vo$-mid$lov$,p.l) 

5220 if va$=chr$( 15) thenprint" (bl 
k) (rvs) ($130) 1 (off) ($132) (wht) ": 
:goto5290 

5221 rem (b 1 ack . revon . f lashon. 1 . 
revof f . f lashof f .whi tel 

5230 ifva$-chr$(14) thenpr int " (bl 
k) (rvs) l$130)2(off) ($132) (wht)"; 
:goto5290 

5231 rem [b 1 ack . revon . f I ashon , 2 . 
revof f , f 1 ashof f , wh i t e I 

5240 if va$-chr$(18) thenprint" (bl 
k) (rvs) ($130) 5 (of f ) ($132) (wht) ": 
: print " (rvs) " ; :rf -1 :aoto5290 

5241 rem (black . revon. f lashon. 5. 
revof f ,f lashof f .whit e) & (revonl 

5250 ifvo$-chr$(146) thenprint "(b 
lk) (rvs) ($130)6 (of f) ($132) (wht) " 
; : print " (of f ) " ; : rf -0 : got o5 290 

5251 rem [ bl ack . revon . f lashon . 6 , 
revof f . f lashof f .whi tel & [revoff 
) 

5260 i fva$-chrS( 145) thenprint" fb 
lk) (rvs) ($13017( O ff ) ($132) (wht)" 
; ;printchrS(142) ; :goto5290 

5261 rem I block . revon . f 1 ashon, 7 , 
revoff . f lashof f .whi te| 

5270 ifva$»chr$(17) thenpr int "( bl 
k) (rvs) l $1 30) 8 (of f) ($132) (wht) "; 
: print chrSU4) : :goto5290 

5271 rem f b lack . revon . f 1 ashon . 8 . 
revoff .f lashof f. white! 

5275 ifrf Mthennrinf (rvsl ": 

5276 rem (revonl 
5280 printva$: 
5290 nextp 
5300- print"" 
5310 return 

6000 rem print whole or part pag 
e routine 

6010 print" (down) Irghtl (rght) (rg 
ht) print or menu? Ip/m)" 

6011 rem (down . rights . etc ) 

6015 getkeypp$: i f pp$-"p"then6020 
:elseif pp$-"m"then4000:else6015 

6020 print "(down) (down) (rght) (rg 
hi ) (rght) f ul 1 or part print? it/ 
p)" 

6021 rem ldown2 . r ight3. et c] 
6030 getkeyf p$: if fr$-"f -then6040 
: e 1 se i f f p$- "p" then6 1 00 : e 1 se6030 
6040 p-1 

6050 if c(p)-18thenprint«4.chr$(2 
7) ; "e" ; 

6060 if a(p) -14thenprint#4.chr$(2 

7) ;"w"; 

6070 print#4.chr$(a(p)) ; chr$(c(p 
) ) ;chr$(d( P ) ) :s$(p) ;chr$(b(p) ) ; 
6080 print#4.chr$(27) ;"x" 
6090 p=pt 1 : if P>nthen4000:else605 
0 

61t)0 input"(down) (rght) (rght) (rg 
htlstart printing line no.";sp 
6101 rem [down , right3 . etcl 
6110 if sp-0orsp>nthen4000 

6120 inpuf'(down) (rght) (rght) (rg 
htlend printing line no.";ep 

6121 rem [down . right 3. etc 1 
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6130 if ep-0orep<spthen4000 
6140 if ep >nthenep-n 
6150 forp-sptoep 

6160 ifc(P)-18thenprint#4,chr$(2 

7) ; "e" ; 

6170 if a(P)-14thenprint#4,chr$(2 

7) ; "w" ; 

6180 pnnt#4 . chr$ (a (p) ) : chr$ (c tp 

) ) ; chr$(d(p) ) ;3$ tp> :chr$(b(p) ) : 

6190 print*4.chr$(27) ;"x" 

6200 nextp 

6210 goto4000 

7000 rem save to disk 

7010 print" (down) (downl (rght) (rg 
ht) (rght) are you sure? (y/n) " 

7011 rem Idown2.right3,etcl 
7020 getkeyrS: if r$-"y"then7023:e 
lseif r$-"n"then4000:else702G 

7023 if s-lthenprint" (down) (down) 
(rght) (rght I (rght) f l le contains 

' . ' or ' ; ' ? ty/nl ":else7030 

7024 rem [down2,right3,etc) 

7025 getkeycpl: i f cp$- "y "thens^l : 
goto7030:elseif cpJ-"n"thens'0:go 

to7030:el3e7025 

7030 input" (down) (down) (rght) (rg 
ht) (rght)file name";nf$ 

7031 rem [down2 . r ight3. etc) 
7040 if nf S-" i " then7050 : e lse i f nf $ 
-•'m"then4000:else7060 

7050 di rectory :goto7030 

7060 print" (down) (down) (down) (do 
wn) (rghtl (rght) (rght) saving file 

on disk. " 

7061 rem [down4 . right3 , etc I 
7070 openl .0.2. "00 : "+nf * + ".S . W" : 
print *l.n:print*l.w:print*l.s 
7080 fork-lton 

7090 ifa(k)-0thena(k)~15 
7100 ifb(k)-0thenblk>«15 
7110 if c (k) -Othenc (k) =146 
7120 if d(k> -Othend tkl -17 

7130 ifml$(kl -""orml$ fk) (brn) " 
thenml$(k)-"<orng) (brn)" 

7131 rem (brown) S [orange. brown 
! 

7140 ifm2$(k)-""orm2S (kl»"(brn) " 
thenm2$(k)-"(orng) (brn) " 

7141 rem (brown I & f orange . brown 

1 

7150 print*l .ml$ (k) : pr i nt#l .m2S( 

k) : print *l.*(k) :print«l .blk) :pri 

nttl.c(k) 

7160 printil .d(k) 

7170 nextk 

7180 closel 

7190 print" (clr) " ssoundl ,600. 100 
7200 goto4000 

8000 rem format for disk subiout 
ine 

8010 f f $f 1) «"":f f I (2) -""if f «='"■ 

8020 l-len(sS(k)» : if s$ (ki -""then 

ff J(l) ■chr«(149) :ff$(2)-chr$(149 

) :goto6120 

8030 forp-ltol , 

8040 1 l$-midJ(st(k) .p. 1) 

8060 if 1 IS-". "thenl l$»chr$( 150) 

8070 If 1 1S-" : "thenl LS-chr$( 151) 

8080 ff$-ffS*l II 

8090 nextp 

8100 if K86thenf f $(1) -f f S :f f $<2) 

-chr$(149) :goto8120 

8110 if l>85thenff$(l)-leftJ!tf$. 

85) : f f S(2)-right$(f f S. < 1-85) ) 

8120 ml$(k) -chr$(129) *t t $(1) :m2S 

(k)=chr$(129)+ff$(2> 

8130 return 

9000 rem load from disk 
9010 print"(down) (down) (rght) (rg 
ht) (rght) are you sure? old file 
in memory will be lost! I 



y/n) •' 

9011 rem [down2 . r ight3 . etc I 
9020 getkeyrS: i f r £- "y "then9030 : e 
lseif r$-"n"then4000:else9020 

9030 input" (down) (down) (rght) (rg 
ht) (rghtl file name" ; nf $ 

9031 rem ldowti2 . r ight3 . et c ) 
9040 if nf $- M m"then4000:e lseif nf $ 
-"i"then9050:else9060 

9050 directory:goto9030 

9060 w-0:pp*0:print"(down) (down) 
(down) (down) (rght) (rght) (rght) lo 
ading file from disk." 

9061 rem Idown4 . rights , etc] 
9065 f orp-0ton:S$(p)»"":ml$(p)-" 
" :m2S(p) -"" :ne;<tp:n-0 

9070 openl, 8. 2, "0: "*nf $+".s,r" : i 
nput#l . n: inputHl .w: input HI . s 
9060 fork-lton 

9090 input*l.mlS(k) :input#l,m2$( 

k) : input#l ,a(k) : input *1 ,b(k) : inp 

ut#l . c (k) 

9100 inputtl.d(k) 

9110 nextk 

9120 closel : if n-Othenpr int " (up) ( 
rght) (rght) (rght)file not found. 

":goto4000 

9121 rem [up,right3. etc.spacel41 

9130 prinf(clr) (down) trans 1 at in 
g data from disk (homel (down) 
(down) (down) (down) (down) (down)ou 
t of "sits "1 ines . " 

9131 rem ( c lr . down . etc I S. (home. 
down6 .etc) 

9140 fork=l ton: print "(home I (down 
) (down) (down) on line" ;k 

9141 rem (home ,down3, etc] 

9150 f f $(1> -rightS(ml$(k) . ( lenlm 
l$(k) )-ll ) :f f$ (2) -rights (m2$(k) . 
(Ien(m2$(k))-1) ) 

9160 if f f $(21 -chr$ (1491 thenf f $-f 

f $(1) :goto9180 

9170 f f $-f f 5(11 *f f S (2) 

9180 if ff $-chr$( 149) thenf f $="": s 

$(k) -ff $:goto9270 

9190 l-len(ffS) :s$(k)-"" 

9195 if s-0then9265 

9200 forp-ltol 

9210 1 l$-mid$ If f S.p. 1) 

9230 if 1 1 S-chrS ( 150) thenl I S B " , " 

9240 if 1 l«-chr$(151) thenl 1$-":" 

9250 sSlkl -sS(k)*ll$ 

9260 nextp 

9265 ifs=0thens$(k)-ff$ 
9270 nextk 

9280 print" (clr) " : soundl .600 . 100 

9281 rem (clr) 
9290 goto4000 

10000 rem review page 

10010 print'Mclr) " 

10011 rem (clr) 
10020 rs-1 

10030 print "(down) (rvsl line numb 
er";rs;"(off>" 

10031 rem (down . revon , etc I £ [re 
vof f J 

10040 ifdfrs) -17thenprintchr$( 14 

) ; 

10050 ifd(rs) =145thenpnntchr$( 1 
42) ; 

10060 ifc(rs)-lBthenprintchr$(18 

> :. 

10070 av$=s$(rs) :gosub5200 

10080 pr int " ( rvg) a a " : a ( rs) . : pr i n 
t"b-";b(rsl . :print"c-";c(rs) . :pr 
int"d-'*;d(rs) 

10081 rem [revon. etcl 
10090 getkeyrsS 

10100 if rs$-"e"then5000 

10110 i f rs$=" (down) "thenrs-rs* 1 : 

gotol0160 



10111 rem (downl 

10120 lfrsS-'(rght) "thenrs-rs* 10 
: gotol0160 

10121 rem [right] 

10130 ifrsS-" (up) "thenrs-rs- 1 :go 
tol0180 

10131 rem lup) 

10140 ifrs$="( left) "thenrs=rs-10 
:gotol0180 

10141 rem I lef t) 
10150 goto4000 

10160 if r3>nthenrs=n: ifrs-Othenr 
s-1 

10170 gotol0030 
10180 if rs< =0thenrs-l 
10190 gotol0030 

11000 rem add or delete line(s) 

11010 dl$="":print"(down) (down) ( 

rght) (rght) (rght) add or delete 1 

ine(s)? (a/d/m) " 

110U rem [down2 , r ight3. etc ) 

11020 getkeydU: i fd !S-"a"thenl 10 

50 

11030 ifdi$-"d"'thenl2000 

11040 I fdl$-"m"then4000:e)3ell02 

0 

11050 al-n: input "(downl (down) frg 
ht) (rght) (rght) add line(s) after 

which line ":al 

11051 rem |down2 , right3, etc ( 
11060 if al >nthen4000 

1 1070 alS-" - ' : input" (down) (down) ( 
rght) (rght) (rghtl text or graphic 

1 ine(s) (t/g) ";al$ 

11071 rem [down2 . r ight3 . etc 1 
11080 if a 1 $-"L "oral S*"g" thenl 109 
0:else4000 

11090 la-0: input" (down) (down) (rg 
ht ) (rght) (rght 1 how many lines to 

be inserted" : la : if I a-0orn* la >di 
then4000 

11091 rem [down2 . rights . etc 1 
11100 n~n*la:aa-n 

11110 do until aa-al+la 

11120 s$faa) -sS(aa-la) :a(aa)-a(a 

a- la) : b ( aal =b( aa- )a):c(aa)-c(an- 

la) 

11130 d(aa) -d(aa- la) ;mlS(oa) -ml$ 
(aa-la) :m2$(aa) -tn2S ( aa-la) 
11 140 ea=aa-l : loop 
11150 forj-al*ltoal+la 

11160 3$lj) -"":a(.))-15:b(i)-l5:C 
(j)-146 :mlS(j )-" (orng) (brnl " :m2S 
(j ) ■" (orng) (brn) " 

11161 rem loranne . brown 1 & loran 
ge . brown 1 

11170 dljl-17: i t al$*'"g"thenn( 1 1 * 
8 

11180 nextj 

11190 prinf'(down) (rght) (rght) " : 
la:"line(sl added after line" : al 

downl " 

11191 rem [down. right 2 J S [downl 

11200 print" (down) (rght) (rghtl (r 
ghtipage length now" ; n :" 1 ines . " 

11201 rem |down.right3.etc) 
11210 goto4000 

12000 rem delete line(s) 

12010 hl-0: input" (down) (down) (rg 
ht) (rght) (rghtl how many lines to 

be deleted" :hl : ifhl-Oorhl >nthen 
4000 

12011 rem f down2 . r ight3 . etc I 

12020 fd=0; input"(down> (down) (rg 
ht) (rghtl (rght) f irst line to be 
deleted";fd:if f d-Oorf d >n-h 1*1 the 
n4000 

12021 rem [down2 . r ight 3 . etc I 
12030 df=fd 

12040 do unt i 1 fd-n+l-hl 

12050 s$(fd) -s$(fd*hl> :a(fdl-a(f 
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d*hl) :b(fd)=b(fd+hl) :c(f d) -c { f d i 
hi) 

12060 d(fd) -d(fd+hl) :ml3!(fd)-mll 
ffdthl) :m2$(fd)-m2$(fd+hl) 
12070 fd=fd+l 
12080 loop 
12090 f orj-n+l-hlton 

12100 a$(j)-"" : a(j)-15:b(j)-15:c 
(j)-146:d(j)-17 

12110 mill j ) -" (orng) (brn) " : m2S ( j 
) -" (orng) (btnj " 

12111 rem (orange . brown) & (oran 
ge . brown 1 

12120 nextj 
12130 n-n-hl 

12140 print' '(down) (rght) (rght) 
hi: "lines deleted from line":df 

12141 rem fdown.right2] 

12150 prinfldown) (rght) (rght) (r 
ghtjpage length now" ; n; " 1 in«s . " 

12151 rem Idown . right3 , etc! 
12160 goto4000 

13000 rem duplicate line Is) 

13010 input" (down) (down) (rght) (r 
ght) (rght)f ir3t line to be copie 
d";f J 

13011 rem (down? . right3 . etc 1 
13020 if f i >norf i-0then4000 

13030 inpuf(down) (down) (rght) (r 
ght) (rght) last line to be copied 
"; la 

13031 rem (down2 , r ight3. etc J 
13040 if )a<f ithenl3010 
13050 if la>nthenla-n 

13060 bl-lo-fi+l 

13070 input" (down) (down) (rght) (r 
ght) (rght) start line of copying" 
;sl : ifsl+bl >dithen4000 

13071 rem Idown2.right3.etc) 
13080 ifsl-f ithenl3010 

13090 ss-n:ifsl-t-bl>nthenn-sl+bl- 
1 

13100 iff i >slthonl3l80 
13110 p=bl-l 

13120 s$(sl+pl-s$(fi>p) :a( sl+pl- 
a(f i+p) :b(sl+p) »b(f i+p) :c(sl+p) - 
c(f i*p) 

13130 d (si »p) *d ( f i-tp) :ml$ (3 1 tpt- 
ml$(f i+p) :m2$(3Up)"m2S(f i+p) 
13140 p=p-l 
13150 if P >-lthenl3120 

13160 print" (down) (down) (rght) (r 
ght) (rght) copying complete. " : pri 
nt" (down) (rght) (rght) (rght) page 
length" ; n: " 1 ines . " 

13161 rem [down2 . right3 . et c ) & [ 
down.right3.etcJ 

13170 if si >ss+lthenl3260 :else400 
0 

13180 p-0 

13190 do unti 1 p=bl 

13200 3$(sl+p)«3i(f i*p) : a(sUp)- 

Mfi+P):b(sl+p)-b(fi*p):cral+p>- 

c(f i*p) 

13210 d(sl*p)=d(f i+p) : ml$(sUp) = 
ml$(f i4p) :m2$(sl»p) -m2$(f i+p) 
13220 p= P *l 
13230 loop 

13240 prinf'(down) (down) (rght) (r 
ght) (rght)copying comp lete . " : pr i 
nf'(down) (rght) (rght) (rght)page 
length" ; n : " I ines . " 

13241 rem |down2 . r ight3, etc ! & ( 
down.right3.etc) 

13250 if si >ss+lthenl3260:else400 
0 

13260 f orp=ss+ltosl-l 

13270 o(p)-15 : b(p)-15:C(p)-146:d 
(P)-17:ml$(p) -" (orna) (brn) " :m2t I 
p) -"(orng) (brn) " 

13271 rem ( orange . brown | & [oran 
ge , brown) 



13280 nextp 
13290 goto4000 

14000 rem load merge file from d 
isk 

14010 prinf'(down) (down) (rghtl (r 
JTht) (rghUdo you wish to merge f 
iles? (y/n)" 

14011 rem (down2.right3,etc| 
14020 getkeyrS: if r$-"y"thenl4030 
:else if r$-"n"theri4000:e!se 14020 

14030 input' '(down) (down) (rght) (r 
ght) (rght)merge file name":nf$ 

14031 rem ldown2 . rights , etc ) 
14040 if nf $=' , m"then4000:elseif nf 
J="i"thenl4050:elsel4060 

14050 directory : gotol4030 

14060 pp-0:nn-0: print" (down) (dow 
n) (down) (down) (rght) (rght) (rght) 
loading merge file from disk." 

14061 rem I down4 . r i grit 3 . etc) 
14070 Op«Rl .8,2,"0 : "*nf$i".s.r": 
input* 1 .nn: input* 1 ,nw: input#l,u: 
i 1 nw >wtlienwnw 

14072 ifu=lthens-l 

14075 if ninn>dithenprint"(down) ^ 
down) (rght) (rght) (rght)merged fi 
le would be too long! " : c losel : go 
to4000 

14076 rem ldown2.right3.etc) 
14080 fork-n+lton+nn 

14090 input#l.ml$(k) :input*l.m2$ 

(k) :input#l.a(k) : input tl.b(k) :in 

putil.clkl 

14100 input#l.d(k) 

14110 nextk 

14120 c losel : if nn-Othenprinf ' (up 
) (rght) (rght) (rghtlmerge file no 
t found. ":goto4000 

14121 rem [ up. r ight3. etc . spacel4 
I 

14130 print' *(clr) (down) translati 
ng merge data from disk (home 
) (down) (down) (down) (down) (down) ( 
downlout of " :nt nn; "1 ines . " 

14131 rem (clr. down. etc) 6 [home 
,down6,etcJ 

14140 fork=n+lton+nn: print "(home 
) (down) (down) (down) on line";k 

14141 rem [home . down3. etc) 
14150 ff$(l) -rights [ml$(kl . ( len( 
ml$ (k) (-1) ) 

14155 ff$(2)-right$(m2$(k) , (lent 
m2$(k))-l)) 

14160 ifff$(2)-chrS(149)thenff$- 

ffl(l) :<jotol4180 

14170 ff*-ff$(l)*ff$f2) 

14100 if f f$-chr$(149) thenf f $-"": 

s$(k)-ff$:gotol4270 

14190 l=len(ff$) :s$(k)="" 

14195 if u-0thenl4265 

14200 forp-ltol 

14210 1 l$-mid$(f fS.p.l) 

14230 if 1 l$-chr$(150) thenll$-". " 

14240 i f 1 1 $-chr$ ( 151 ) then 11$-":" 

14250 st(k)-3$(k)+ll$ 

14260 nextp 

14265 ifu-0thens$(k)-ff$ 
14270 nextk 

14200 n-n+nn : print "(c lr) (down) (d 
own) files merged, page length no 
w";n: " 1 ines . ": sound 1 ,600.100 
14281 rem [clr ,down2.etc] 
14290 goto4000 



ril 1987 
40 : 

50 print chrSCS73+"e":print chrS 
C14J ; chr$(115 

60 trap 500 :scnclr: poke 53580,55 

lsehar, 10,0. "<<< LISTER 158 >>>" 

70 char, 0,3, "Lister 12B is a uti 

lity to list a basic" 

80 char, 0,S, "program on the prin 

ter without loading" 

90 char.0,7, "the program into me 

mory . The program " 

100 char. 0,9, "must have been sav 

ed as an ASCII File." 

110 char, 0.11, "All printing take 

s place in Fast mode." 

150 char.10,13, " 



PROGRAM : LISTER 188 



10 rem "... LISTER 128 
• * • 

50 : 

30 rem " CC5 Kevin Blight - Ap 



130 poke 51, lrchar, 0,15, "Name oF 
program to list : "rinput F$:po 
ke 51,0 

140 iF lenCFSD<5 or lenffS)>16 t 
hen 130 

150 poke 21, I: char. 0,17, "Heading 

": input hS:poka 51 ,0 
150 IF lenChSJO or lenth$)>30 t 
hen print chrS< 73 ; : goto 150 
170 p D ke 51, l:char,0, 19, "Date 

: ": input dS:poke 51 ,0 
180 iF lenCdSXS or lenCdS)>9 th 
en 170 

190 char, 0,51, "Upper or louer ca 
se print CU/L: ; " 
200 getkey pS:iF pS-"u" or pS-"l 
" then S10:else print chrSC7);:g 
□to 500 

510 iF pE-"l" then char, 34 , 51 , "L 
0WER":else char , 34 , 21 , "UPPER" 
520 Fasfdopenttl, CFS) + ",a, r": inp 
utttl.aS 

530 open 3 , 4 : printH3 , chrSC 145 ; h 
S;^ C";dS; . ":printt)3, chrSC IS) : 

540 iF p$-"u" then p-145:else if 

pS-"l" then p-17 
250 gettll,BS:iF ascCaS)<4S or as 
cCaS)>57 then 2S0 
5G0 : 

570 rem " • - • READ WHOLE Q 



F LINE • * • 
580 : 

290 if 1>50 then 300 :B lse 350 
300 For x-1 to 5B-l:printB3,chrS 
C 155; next 

310 printB3 lC hr$C14J;hSi " t";d$; 

"3 .":printM3,ChrSC 15): 1-5 

320 lS-""+aS:da while aS<>chrSCl 

35 

330 get#l,aS: ls-ls*aS; loop 
340 : 

350 rem " • • • FORMAT LINE 
FOR PRINTING * • * 
350 : 

370 a=l:bS-"" : aI«"":do uhUe asc 
(aS) <> 35:a$-mid$ClS,a,l):bB-b 
S*a5:a-a*l : loop: rem b$-line numb 
er . 

380 bS-leFtS(bS, len(bS)-l) : lS-ri 

ghtSCIS, lenClSl-lenCbSJ-l) 

390 spl-" ":bS-bI*leFtSC 

spS,B-lenCbS3):rem bS-line no ■* 

spaces 

400 lS-bS+lS 

410 if lenC!S)>80 than 450:el se 
4S0 

450 aS-"" ; aS-leFtSClS 1 805*" 

"TightSClS, lenCl$J-B0):lS-aS 
430 iF len(lS3>lB0 then 440:else 
4 SO 

440 aS-"":aS-leFtS(lS,160)+" 

"-rightSClS, lenCl$)-150) : lS-aS 
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450 P rintH3,chrSCp);lS; : 1-1+1 
460 aS-"": lS-"":gotO E90 
470 : 

4B0 rem "• * * ERROR TRAPS - 
490 : 

500 if err~4 then scnclr : slow : pr 
int "SELIST FILE CANNOT BE FOUND 
":goto G10 

510 if err- 5 then scnclr : slow : pr 
int "SCIDEUICE NDT CONNECTED " : got 
o 610 

550 if err - 14 than S40 
530 scnclr: slow: print "SEIERROR N 
0 :";err;" IN LINE NO"jel:end 
540 For x«l to 66-l:prlntH3,chrS 
f 15 J : next 

550 slow: scnclr : print: print : prin 
t "List another program CY/N3 : 

SB0 getkey q$:iF q$""y" or q$-"n 
:* then 570 : else print chrSC7);:g 
oto 560 

570 print qS : print : print : pr int " 
SCRATCH the ASCII File CY/ND : " 

580 getkey a$:iF aS-"y" or aS-"n 
" then 590:else print chrSC7);:g 
oto 5B0 

590 print aS:if aS-"y" thBn sera 

tch (m 

600 IF q$-"y" then run : else dclo 
se : end 

610 print"SCIPRES5 ANY KEY TO CON 
TINUE" 

6?0 getkey qS:run 



PROGRAM: EASY COUNT 



ae 1 r em •***»***»»•**»«•*•** 

bl 2 rem ' ' 

ff 3 rem * program to start * 

c6 4 rem • easy count * 

aa 5 rem * * 

9a 6 rem " by m. p. leech * 

ac 7 rem * " 

47 B rem ******••***•*•••***» 

eO 10 bl-62 :ln-50 :sa=49l5 
2 

5b 20 for 1-0 to bl:cx-0:for d- 

0 to 15:read a : cx-cx*a : poke 

sa»- 1" 16*d . a : next d 
a5 30 read a: if aXcx thenprint 

"error in 1 ine" ; 1 n+ ( 1 * 10) :3t 

op 

lc 40 next I :sys49287 

19 50 data 169.0,133,144.169,36 

,133,251.169,251,133.187,169 

,0,133,168.2265 
b2 60 data 169.1.133.183.169.8. 

1 33 , 186 . 169 , 96 , 133, 185 . 32 . 2 1 

3,243.165,2218 
dc 70 data 186.32.180.255.165,1 

85 . 32 . 150 . 255 . 164 . 144 . 208 . 6 1 

.160,6.132,2315 
ae 80 data 251,32.165.255,166.2 

52.133.252,164. 144,208.46,16 

4.251,136.208.2827 
21 90 data 238.164.252,32.205,1 

89.169.32.32.210.255.32.165. 

255.166,144,2540 
44 100 data 208.24.170.240.6.32 

.210.255,76,75. 192. 169, 13.32 

.210.255.2167 
73 110 data 165.197,201,63.240, 

4. 160.4,208. 197.32.66.246. 16 

0.0.185.2128 
12 120 data 189.195.201,0,240.7 

. 32 . 210 . 255 . 200 . 76 . 1 1 1 . 192 . 3 



2.159.25'3.2354 
ff 130 data 32,228.255.201,0,24 

0 . 246 . 169 . 240. 141 . 32 . 208 . 169 

. 251 . 141.33. 2586 
a4 140 data 208.160,0.185.96.19 

4 , 201 , 0 . 240 . 7 . 32 . 210 . 255 . 200 

.76,147.2211 
33 150 data 192.32.218.192,160. 

0.185. 168.194.201.0,240,7,20 

0,32.210,2231 
f7 160 data 255,76.166.192,32.1 

59 , 255 . 32 , 228 . 255 . 201 , 0 . 240 , 

246,201,13,2551 
ae 170 data 240.15.170,169.147. 

32 . 210 , 255 . 1 36 . 201 , 68 . 240 . 1 . 

96.76.0.2058 
fa 180 data 192.169.0,133.251.1 

33.252.76.247.192,162.10.160 

,5.24,32.2038 
d3 190 data 240,255.162.121.202 

. 169.32,32,210.255.224. 255.2 

08.246.162.10.2783 
da 200 data 160.5,24,32.240.255 

,96.32,218, 192, 160,0, 105, 10. 

195,201.2005 
ad 210 data 0.240.7,200.32,210, 

255 . 76 , 252 . 192 . 160 . 0 , 32 , 207 . 

255,201.2319 
26 220 data 13.240.7,153.236.19 

5 . 200 . 76 . 1 2 . 193 . 1 32 , 253 . 169 . 

146.153.236,2414 
39 230 data 195.200.169,32.153, 

236.195,200.169.72,153.236,1 

95,200, 169,65.2639 
c3 240 data 153,236.195.200.169 

. 83 . 153 . 236 . 195 . 200 . 169 , 32 . 1 

53,236.195,200.2805 
9a 250 data 169.18.153.236.195. 

200. 169 .0 . 153.236, 195. 165. 25 

3.162,236.160,2700 

46 260 data 195,32.189.255.169. 
3.162.8.160.2.32.186.255.32. 
192.255.2127 

cl 270 data 201.98.208.27.32.18 

7 , 1 93 . 160 . 0 . 1 85 . 1 1 3 . 195 . 200 . 

32.210.255.2296 
ac 280 data 201.0.208.245.169.3 
. 32 . 195 , 255 . 32 . 204 . 255 , 76 . 1 6 

1.192.162.2390 
40 290 data 3,32,198.255,32.207 

,255. 133,253.32. 183. 255.201 . 

66.240,16,2361 
22 300 data 165.253.201,128,240 

, 49 . 32 , 207 . 255 . 20 1 . 1 28 . 208 . 2 

49.76 . 199. 193. 2784 
48 310 data 32,187,193,160.0.18 

5,151. 195, 200. 32 , 210, 255 , 201 

,0.208.245.2454 

47 320 data 169.3.32.195,255.32 
, 204,255,76. 161. 192, 162. 14. 1 
60.5,24,1939 

5c 330 data 32.240.255.96.32,20 

7.255.201.128.240.11.201.13. 

240.25.201.2377 
Id 340 data 32.208.38.76.196.19 

3 . 32 , 207 , 255 . 20 1 , 59 . 240 . 231 . 

201,194.240.2603 
d9 350 data 227.201.13,240,223. 

76 , 2 14 . 193 . 160 , 0 . 32 . 207 . 255 . 

201 . 13, 208, 2463 
Id 360 data 214.200.192.5.240.3 
•5.76,234,193.32,13.194,32.20 

7. 255.201 , 2323 
al 370 data 32.208.3.76.196,193 

.201.13.208.242.76,196.193,2 

30.251,165.2483 
If 380 data 251.201.0.240,1.96. 

230.252.96,32.187.193.169.18 

.32,210.2208 
9b 390 data 255,160.0.185.236.1 

95 . 201 . 0 . 240 . 7 . 200 . 32 . 21 0 . 25 

5.76.35.2287 
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dO 400 data 194.165.252.164.251 
.32. 145. 179.32.221 . 189.32,30 
, 171 . 160.0. 2217 

65 410 data 185,212.195.201.0.2 
40 , 7 , 200 . 32 , 21 0 . 255 . 76 . 64 . 19 
4,169.3.2243 

35 420 data 32.195.255.32,204.2 
55.76. 161, 192. 0.0. 0.0, 0.0,0. 
1402 

34 430 data 147.5,13.13.32,32.3 
2,32.32.32,32.32.18.69.65.83 
,669 

f3 440 data 89.32.83.67,82.73.8 
0 . 84 . 32 . 87 . 79 . 82 . 68 . 32 . 67 . 79 
.1116 

a6 450 data 85 . 78 . 84 . 6Q . R2 . 14ft . 
13 . 13. 32 . 32 . 32 . 32 . 32 . 32 . 32 . 3 
2,826 

d3 460 d.ita 32.32.32.32.18.77.4 
6 . 80 . 46 . 76 . 69 . 65 . 67 . 72 . 46 . 32 
,822 

62 470 data 74 . 65 . 78 . 56 . S3 . 1 46 . 
0 . 0 . 80 . 82 . 69 . 83 . 83 . 32 . 82 . 69 . 
1054 

f2 480 data 84.85.82.78.32.75.6 
9 . 89 . 32 , 84 . 79 . 32 . 67 . 79 , 78 , 84 
,1129 

ea 490 data 73.78.85.69,13.145. 
32 . 32 . 32 , 32 . 32 . 80 . 82 , 69 . 83 , 8 
3. 1020 

3c 500 data 32.32,68.32.32.70.7 
9,82.32.84,72,69.32.68,73.82 
.939 

71 510 data 69.67.84.70.82.89.1 
3. 32. 32, 32.32,32. B0. 02. 69. 83 
,957 

0c 520 data 83.32.65,78,89.32.7 
9 . 84 , 72 , 69 . 82 . 32 . 75 , 69 . 89 , 32 
,1062 

a7 530 data 84.79.32.65.66.79.8 
2 . 84 . 1 3 . 0 . 84 , 89 . 80 . 69 . 32 . 73 . 
101 1 

7e 540 data 78.32.70.73.76,69.3 
2 . 78 . 65 . 77 . 69 , 32 . 65 . 78 , 68 , 32 
.994 

a5 550 data 80.82.69.83.83.32.8 
2 . 69 . 84 . 85 . 82 . 78 , 13 , 32 . 32 . 32 
,1018 

37 560 data 32 . 3-? . 70 , 73 . 76 , 69 . 3 
2 . 78 . 65 . 77 . 69 . 32 . 73 . 83 . 32 . 58 
.951 

c3 570 data 45.13,32,32.32.32.3 
2 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 . 32 
,506 

b3 580 data 32.32.32,32.32.32.3 
2 . 32 . 32 , 32 . 32 . 32 . 32 . 32 . 32 . 32 
.512 

a7 590 data 32.32.32.32.32.32.3 
2. 32, 32. 145. 1 3 . 32 . 32 . 32 . 32 . 3 
2 , 606 

66 600 data 0.63.32.78.79.32,70 
. 73 . 76 . 69 . 7R . 65 . 77 . 69 . 32 . 69 , 
962 

a2 610 data 82.82.79.82.32.63.4 
6.32.32.32.32.32.32.32,32,32 
.754 

ab 620 data 32.32.32.32.13.0,0. 
63 . 32 . 70 . 73 . 76 . 69 . 32 . 78 . 79 , 7 
13 

03 630 data 84.32.70.79.85,78.6 
8,32,69.82.82,79.82.32.63,46 
.1063 

3c 640 data 32.32.32.32.32.32.3 
2.32.32.32.32.13.0.32.32.32. 
461 

af 650 data 32.82.69.84.85.82.7 
8 , 32 . 84 . 79 . 32 . 67 . 79 . 78 . 84 . 73 
,1120 

53 660 data 78.85,69,0,146.32.8 
7 , 79 . 82 . 68 . 83 . 32 . 32 , 32 . 32 . 32 
.969 

aa 670 data 32.32.32.32.32,32,3 
2.32.32,32.1 3.0.0. 0.0,0.333 



PROGRAM: RELOCATOR . BAS 



34 10 d-2049: 1-1000 

c2 20 t-0 

Oa 30 forx-ltoS 

8a 40 reada: if a--l thenlOO 

68 50 poked. o :d-d+l : t-t4a 

be 60 next 

c8 70 reads: if a — IthenlOO 

26 80 if tOathenprinferror in 

1 ine " : 1 : end 
fc 90 1-1+I0:goto20 
df 100 ifd<>4203*lthenprint"add 

reaa error":end 
b6 110 poke43. 1 :poke44.8 
93 120 poke45.108:poke46.16 
Od 130 print " Idownl saving reloc 

ator" 

51 140 save"relocator'".8:end 
4e 150 rem change the '8' in th 

e previous line to '1' to sa 

ve to tape 
1c 1000 detail. 8. 10.0.158.50.48 

.34.339 

b4 1010 data49.0.0.0.32.0.10.32 
.123 

ff 1020 data91 . 13. 32.23. 10.96.3 

2.198.495 
79 1030 data9. 147.84.65.80.69.3 

2.76.562 

5f 1040 data79.65,68,73.78.71.3 

2.02.548 
49 1050 data79.85.84.73.78.69.1 

3.0.481 

fa 1060 datol34, 195. 142. 108.9.1 

32. 196 . 140. 1056 
39 1070 datal09. 9. 169. 0.133.147 

. 133. 144,844 
eO 1080 data32. 208. 247.32.23, 24 

8.32,175.997 

b6 1090 data245. 165. 183. 240.6.3 

2.234.247.1352 
23 1100 datal44.7.96.32.44.247. 

144. 1 ,715 
90 1110 data96, 165. 144.41. 16.56 

,240.1.759 
6f 1120 data96. 224. 4. 208.24.32. 

198.9,795 
af 1130 datol3.13.83.69.81.85.6 

9,78.491 

cc 1140 data84.73,65,76.32,70,7 

3.76.549 
00 1150 data69, 13.0.56.96. 224.1 

.208.667 

e2 1160 data26.32. 198.9.13. 13.8 
5.78,454 

8b 1170 deta80,82.79.84.69,67.8 

4.69.614 
96 1180 data68. 32. 70. 73 .76 .69 . I 

3.0.401 

e8 1190 data76. 181 .8.224.3. 208. 

220.32,952 
a8 1200 datal98.9. 13. 13.80.82.7 

9.84.558 
7a 1210 data69.67.84.69.68.32.7 

0.73.532 
fO 1220 data76.69. 13.0.32, 198.9 

.13.410 

bb 1230 datal3.79.82,73.71.73.7 

8,65.534 
cc 1240 data76.32.83.84,65.82.8 

4.32,538 
c4 1250 data65.68.68.82,69.S3.8 

3.32.550 
63 1260 data58,32.36.0.160.2.17 

7. 178.643 
b4 1270 data32.31 . 10. 136, 177. 17 

8.32,31.627 
16 1280 dotalO. 32. 198.9. 13. 13.3 

2.32.339 

36 1290 data32. 32.32.32.32.32.3 



2.69 . 293 

54 1300 data78.68.32.32.32.65.6 
8.68.443 

ab 1310 data82.69.B3.83.32.58.3 
2,36.475 

ba 1320 dataO. 160,4.177. 178.32. 
31. 10.592 

7a 1330 datal36.177.178,32,31.1 

0.56.32.652 
96 1340 datal25,245,8.32.198.9. 

13.13.643 

9e 1350 data78,69.87.32.32.32,3 
2,32.394 

11 1360 data32.83.84,65.82.84.3 
2,65.527 

ab 1370 data68.68.82.69,83.83.3 

2.58,543 
7d 1380 data32.36.0.173.109.9.3 

2,31 ,422 

44 1390 datalO. 173. 108.9,32,31. 
10.32,405 

93 1400 datal98.9, 13. 13.32. 32.3 
2.32,361 

e4 1410 data32.32.32.32.32.69.7 

8.68.375 
lb 1420 data32.32.32.65.68.68.8 

2.69.448 
c3 1430 data83.83,32.58.32.36.0 

.165,489 

23 1440 datal75.32.31, 10, 165.17 

4,32.31,650 
35 1450 datalO. 40, 96. 0.0. 134.17 

4.132,586 

94 1460 datal75, 170, 181.0. 133. 1 
93. 181 . 1 , 1034 

3c 1470 datal33.194.32. 198.9, 14 
7.13,84,810 

ce 1480 data65.80.69.32,83,65.8 
6.73.553 

c8 1490 data78.71.32.82.79.85.8 
4,73,584 

f3 1500 data78.69, 13. 13, 13.0.32 
.206.424 

31 1510 datal2, 32. 208. 247.32.56 

.248.32.867 
dd 1520 datal43.246.165.185.32. 

106.247,176.1300 
90 1530 data23. 173. 194.9. 133. 19 

3,173.195,1093. 
86 1540 data9. 133,194, 173, 196,9 

.133,174,1021 
4b 1550 datal73.197.9.133.175.3 

2, 103. 248. 1070 
b0 1560 data96. 0.0. 0.0, 72, 152,7 

2.392 

cd 1570 datal38. 72. 186.232.232. 
232.232, 189, 1513 

60 1580 dataO. 1.133. 251. 189. 1.1 
. 133.709 

21 1590 data252.230.231.208.2.2 
30.252.160,1585 

61 1600 data0.177.251.240.6.32. 
202.241.1149 

4e 1610 data200. 208. 246. 152.24. 

101,251,157,1339 
86 1620 dataO. 1.169. 0.101. 252.1 

57. 1 .681 

a9 1630 datal . 104. 170. 104. 168. 1 

04,96, 169.916 
3e 1640 data54. 133. 1 , 169. 128, 13 

3. 157. 169,944 

b2 1650 dataO. 141 .32,208, 141,33 

,208.32.795 
82 1660 data!98.9.5. 147.0.96, 16 

9.55,679 
53 1670 datal33, 1.32.24.229.96. 

72.74.661 
81 1680 data74.74.74.32.60.10.1 

41.55.520 

fa 1690 datalO. 104.72.41 , 15.32. 
60. 10.344 



2c 1700 datal41,56.10.32,198,9, 
48.48,542 

90 1710 dataO. 104.96.248.24.105 

.144.105.826 
35 1720 data64.216.96. 169.0. 133 

. 198.24,900 

80 1730 datal62.24.160.0.32.10. 

229,32.649 
lb. 1740 datal98.9. 32. 32. 32.32.3 

2,32.399 

7e 1750 data80.82.69.83,83.32,8 
3.80,592 

be 1760 data65,67,69,32.66.65.8 
2,32,478 

42 1770 dataB4.79. 32. 67,79,78. 8 
4,73.576 

cd 1780 data78.85.69.32,32.32.3 

2.32.392 
52 1790 data32.0.32,62.241.201. 

32,208,808 
f7 1800 data249.96. 162.0. 134. 19 

8.32.87,958 
11 1810 data241.157.0.2.232.224 

.88,240.1184 
fa 1820 data5.201.13.208,241.20 

2.142.160.1172 
d6 1830 datalO. 32. 198.9. 13.0,96 

.0.358 

al 1840 datal73, 160. 10,201 ,4 , 24 

0,21,32.841 
93 1850 datal98. 9, 13.52.32.68.7 

3.71.516 

e3 1860 dota73.84.83.32.79.78.7 

6.89.594 
Od 1870 data!3. 0,56. 96. 174.1,2, 

172,514 

fl 1880 data0.2,32.214.10.133.2 
52. 174.817 

ba 1890 data3. 2. 172. 2,2.32, 214. 
10.437 

91 1900 datal70. 164.252.24.96.1 

52.32.232.1122 
fe 1910 datalO. 10. 10.10.10.133. 

251.138.572 
09 1920 data32. 232. 10. 24. 101.25 

1.96.56.802 
8d 1930 data233. 48. 144. 13.201 . 1 

0, 144,8,801 
8a 1940 dato233.7,144.5.201.16. 

176.1.783 
2c 1950 data96.32, 198.9, 13.73.7 

8,86.585 

13 1960 data65.76.73.68.32.72,6 
9,88,543 

90 1970 data32.68.73.71.73.84.1 
3,0,414 

f3 1980 datal04, 104. 104, 104.56. 

96.32. 198,798 
73 1990 data9, 70. 73. 76.69,78.65 

.77.517 

d5 2000 data69. 32. 58, 0,32. 131.1 

0.173.505 
be 2010 datal60. 10.240.26,201 .1 

7. 144.5.803 
c3 2020 datal69.16.141.160,10,l 

62.0.189,847 
f8 2030 data0.2.157.79.11,232.2 

36.160.877 
4c 2040 datal0.208.244.173.160. 

10. 162.79, 1046 
C2 2050 datal60,11.32.249.253.9 

6.32.32.865 
5a 2060 data32. 32,32.32.32. 32,3 

2.32.256 

6a 2070 data32. 32. 32.32.32.32.3 

2. 198.422 
80 2080 data9. 147. 13,82.69,76,7 

9.67.542 
a6 2090 data65.84.65.66.76.69,3 

2,76.533 

e4 2100 data79.65.68.13,13.13.0 
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LISTINGS 



,169.420 

eb 2110 data55.133,1.32.23.11.3 

2,198.485 
42 2120 data9, 13.13.78.69.67,32 

,63.384 

bf 2130 data84.65,82.84,32.65,6 
8,68,548 

36 2140 data82,69.83,83.32.5S.3 
2.36,475 

46 2150 dataO. 32. 131.10,32,161, 

10, 176.552 
5f 2160 data221.192,16.144.6,20 

8,35,224,1046 

37 2170 datalOS, 176 .31 .32. 198,9 
.13. 13.580 

eb 2180 data77.69.77.79.82.89.3 
2.67.572 

f5 2190 data79.7B.70.76.73.67.8 

4,32.559 
24 2200 data69.62.82,79.82.13.0 

.76.483 

46 2210 datol27.11.165,186,201. 

8,240,6,944 
44 2220 data32.23.8,76,218.11.3 

2.191,591 
04 2230 datal4, 144. 16.32, 198,9. 

13, 13,439 
6a 2240 dato76 , 79 . 65 , 68 , 32, 69 . 8 

2,82,553 

ca 2250 data79 ,82,0.32.68, 10.96 
,32.399 

34 2260 datal98 .9, 147.13,82.69. 

76.79.673 
cS 2270 data67.65,84.65.66.76.6 

9,32.524 
Id 2280 data83.65.86.69.13.13.1 

3.0.342 

ba 2290 data32 . 23 . 1 1 . 32 . 198 . 9 . 1 
3, 13, 331 

Od 2300 data83,65,86.69.32.70.S 
2.79.566 

a4 2310 data77.32.58,32.36,0.32 
,131.398 

61 2320 datal0.32.161.10.176.22 

9,142.194.954 
Ob 2330 data9. 140. 195 .9.32. 198. 

9, 13.605 

Od 2340 datal3.32.32.32.32.32.3 
2.32.237 

40 2350 data84. 79, 32.58.32.36.0 
,32.353 

2c 2360 datal31.10.32.161.10.17 

6.229. 142.891 
ac 2370 datal96 .9. 140. 197.9.32. 

198.9.790 
cf 2380 datol3. 13,78.69.87.32,8 

3,84.459 

8c 2390 data65,82.84.32.65.68,6 
8,82.546 

9a 2400 data69.83.S3.32,58.32,3 
6.0.393 

71 2410 data32.131.10.32, 161. 10 

.176.221,773 
68 2420 datal34.193.132.194.173 

.196.9.56.1087 
77 2430 data237. 194.9. 133. 174.1 

73.197,9.1126 
d6 2440 data237, 195.9. 176.38,32 

,198.9.894 
9a 2450 data 13. 13 . 83 . 84 , 65 . 82 . 8 

4.32,456 

d3 2460 data65.68,68.82.69,83.8 

3,32.550 
7c 2470 data62.32.69,78.68,32,6 

5.68,474 
5f 2480 data68.82,69.83,83.13.1 

3.0.411 

fl 2490 data76. 12. 12. 133. 175.24 

. 138. 101,671 
la 2500 datal74. 170. 152. 101. 175 

. 168, 165, 186 . 1291 
cl 2510 data201 .8.240,8.169.193 



.32,110.961 
af 2520 data9.76,202.12.169,193 

.32.1.694 
53 2530 datal6.32.68. 10.96 .32. 1 

98.9.461 

4f 2540 data83.65.86.73.78.71.3 

2.70.556 
3c 2550 data82.79.77.32.58.32.3 

6.0.396 

31 2560 datal73.195.9.32.31.10. 

173.194,817 
lc 2570 data9.32.31.10.32.198.9 

, 13.334 

34 2580 datal3.32.32.32.32.32.3 
2,32,237 

c3 2590 data32,32.64.79.32.58.3 
2 , 36 . 385 

56 2600 dataO. 173. 197.9.32.31.1 

0. 173,625 
07 2610 datal96, 9 .32.31 . 10.32. 1 

98.9,517 
d3 2620 datal3. 13. 13.84.79.32.8 

2,69.385 

50 2630 data76,79.65.68.32.70.8 
2.79,551 

49 2640 data77.32,58,32,36.0.16 

5. 194.594 
4d 2650 data32.31,10.165.193.32 

,31 ,10.504 
b8 2660 dato32. 198,9. 13. 13.32,3 
2,32.361 

36 2670 data32.32.32.32.32.32.3 
2.32,256 

ab 2680 data32,84.79.32.58.32.3 
6.0.353 

ee 2690 data!65 . 175 . 32 . 31 . 10 . 16 

5.174.32.784 
45 2700 data31. 10, 32.198. 9. 13.1 

3.13.319 
7e 2710 dat.aO.96.32. 198.9. 147.5 

.13.500 

eO 2720 datal3. 32, 32.32.32.32.3 
2.32.237 

ca 2730 data32.32,32.32.32.32.7 
7,32.301 

99 2740 data69,32.78. 32.85. 13.1 
3.13,335 

6f 2750 datal3. 13. 156,32.32. 32. 

32.32.344 
Ob 2760 data32.32,32.32.32.40.4 

9.41.290 

35 2770 data32.84.65.80.69.32.7 
6.79.517 

78 2780 data65.68,13.13.153.32. 

32.32.408 
fa 2790 data32.32.32.32.32.32.3 

2.40.264 

af 2800 datn50.4l.32.84.65.B0.6 

9.32.453 
f6 2810 data83.65.86.69.32.40.8 

0,82.537 
48 2820 data79.84.69.67.84.69.6 

8,41 .561 

9b 2830 datal3. 13. 150.32,32.32. 

32.32.336 
65 2840 data32. 32.32.32.32.40.5 

1,41 .292 

ac 2850 data32.84.65.80.69.32.8 
3,65.510 

50 2860 data86.69.32.40.85.78.8 
0.82,552 

c2 2870 data79.84.69.67.84,69.6 
8.41.561 

fb 2880 datal3.13.154.0.32.198. 
9.32.451 

b3 2890 dota32.32.32.32.32.32.3 
2.32,256 

42 2900 data32.40.52.41.32.68.? 
3,83.421 

a6 2910 data75.32.76.79.65.68.1 
3.13.421 

7c 2920 datal29.32.32.32.32.32. 



32.32.353 
dl 2930 data32.32.32.40.53.41.3 
2.68.330 

d6 2940 data73.83.75.32.83.65.B 

6.69.566 
e8 2950 datal3 . 13 . 159 . 32 . 32 . 32 . 

32.32.345 
99 2960 data32.32. 32.32. 32.40.5 

4.41.295 
e5 2970 data32.81.85.73.84.13.1 

3.13.394 

77 2980 datalS, 13.5,32.32.32.32 
.32. 191 

fl 2990 data32.32.32.32.32.67,7 

2.79.378 
14 3000 data79.B3,69.32,79.80.8 

4.73.579 
98 3010 data79,7S.O. 169,0, 133.1 

98,32.689 
2d 3020 data62.241 , 203 .49 .208. 1 

5.169.1.946 
e4 3030 datal33. 186.32.198.9.15 

8.0.32.748 
cb 3040 data95.11.76.91.13.201, 

50,208,745 
cd 3050 datal9. 169. 1.133.186, 16 

9,3. 133.813 
21 3060 datal85. 32, 198,9.153.0. 

32, 240.849 
fb 3070 datall .76 .91 . 13.201 .51 . 

208. 19.670 
4f 3080 datal69. 1.133. 186. 169.1 

.133.185.977 
79 3090 data32. 198.9.150.0. 32. 2 

40.31.672 
37 3100 data76. 91 .13.201.52.208 

. 15. 169,825 
la 3110 data8. 133. 186.32.198.9 . 

154.0.720 
86 3120 data32,95.11.76.91,13.2 

01.53.572 
62 3130 dato208, 15. 169.8.133,18 

6,32.198,949 
27 3140 data9.129.0.32.240.11.7 

6.91 .588 
lb 3150 datal3. 201 .54.208. 146.9 

.6,32. 198.948 
f7 3160 data9.147.13.68.73.03.7 

5.32.500 
30 3170 data76.79.65.68.73.78.7 

1.32.542 

2c 3180 data82.79.85.84.73.78.6 
9, 13.563 

6f 3190 datal3. 13. 0.134. 195. 132 

. 196 . 169.852 
04 3200 dataO.133. 147. 133, 144. 1 

65.163.208.1113 
8f 3210 data25.32. 198.9. 13, 13.7 

0,73,433 

eb 3220 data76.69.78.65-77.69.3 

2,77.543 
ad 3230 data73 . 83 . 83 .73 . 78 . 71 , 1 

3,0.474 

f3 3240 data56.96.32.175.245.16 

9.96.133.1002 
c4 3250 datal85. 32. 213.243, 165. 

186,32.9. 1065 
ce 3260 data237. 165, 185 .32. 199 . 

237. 32. 19 . 1106 
3d 3270 data23B, 141. 194.9. 165 . 1 

44,74.74.1039 
81 3280 datal44.23.32,198.9.l3. 

13,70,502 
e2 3290 data73. 76 , 69 . 32 . 78 . 79 . 8 

4.32.523 
a4 3300 data70.79.85,78.68. 13.0 

.56,449 

9a 3310 data96.32. 19. 238. 141 . 19 

5.9,32,762 
36 3320 data232,244.32. 198.9. 13 

. 13.79.820 
6a 3330 do ta82 , 73 . 71 . 73. 78 . 65 . 7 
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6,32.550 

02 3340 data83.84.6S,82.84,32.6 

5.68,563 
68 3350 data68.82.69,83,83.32.5 

8.32,507 

fe 3360 data36.0.173.195.9,32.3 
X. 10,486 

3b 3370 datal73. 194.9.32.31.10. 

32. 198,679 
09 3380 data9. 13. 13.32.32.32,32 

,32.195 

42 3390 data32, 32.32.32,69.78,6 
8.32,375 

87 3400 data32.32.65.68.68.82.6 
9.83.499 

64 3410 data83,32.58.32.36.0.56 
. t65 ,462 

38 3420 datal74.229.195.170.165 

. 175, 229. 196. 1533 
b7 3430 datal68,24.138,109.194. 

9,72. 152,866 
73 3440 datal09.195.9.32,31.10. 

104. 32.522 
04 3450 data31, 10.32. 198,9.13 1 

3,13.319 

0c 3460 data78.69.87,32,32,32.3 
2.32,394 

4b 3470 data32.83.84.65.82.84,3 
2.65.527 

d9 3480 data6Q.68.82.69.83. 83. 3 

2.58.543 
ed 3490 data32. 36.0. 165,196,32, 

31. 10,502 
52 3500 datal65.195,32.31.10.32 

. 198,9.672 
dd 3510 datal3. 13,32.32,32,32,3 

2,32.218 

fc 3520 data32.32.32.69.78.68.3 
2.32,375 

d3 3530 data32.65,68.68.82.69 8 
3,83.550 

ce 3540 data32.58.32 . 36.0. 165. 1 

75.32.530 
a8 3550 data3t,10,165.174.32.3l 

. 10.96.549 
f4 3560 data32. 198.9. 147. 13.68. 

73.83,623 
5e 3570 data75.32.83.65.86.73,7 

8,71,563 
69 3580 data32.82.79,85.84.73.7 

8.69.582 
c9 3590 datal3.13.13.0.134.174. 

132,175,654 
dl 3600 datal70. 181 .0. 133. 193. 1 

81,1,133.992 
06 3610 datal94, 165. 183.208,3,7 

6,234. 14, 1077 
99 3620 datal69. 97. 133. 165.32.2 

06. 12.32.866 
dc 3630 data213. 243. 32. 143.246. 

165 . 186 . 32, 1260 
59 3640 data!2.237. 165. 185.32.1 

85.237,165.1218 
fd 3650 datal93.32.22l,237.165. 

194. 32. 221 . 1295 
bb 3660 data237. 173, 194.9. 133.1 

72.173,195.1286 
ac- 3670 data9. 133.173.173.196.9 

.133.174,1000 
20 3680 datal73.197.9.133.175.1 

60,0,32,879 
09 3690 data36, 246. 96.-1 



PROGRAM : AIRCRAFT DATA 



AF 10 REM********************** 

»■ * 

4B 20 REM* SPRITE L1RBARY 
* 

A3 30 REM* 

* 



CI 40 REM- AIRCRAFT SPRITES 
* 

CE 50 REM* BASIC DATA LOADER 

99 60 REM* SPRITES DESIGNED BY 
* 

2E 70 REM- MIKE BENN 

C5 80 REM"*****""****"*""*"**** 



DD 90 BL-255 :LN-190 :SA-1024 
0 

69 100 FOR L-0 TO BL:CX-0:FOR D 
-0 TO 15 

4F 110 READ A: IF A >255THENPRI NT 
"NUMBER TO LARGE" ; LN+ (L* 10) : 
STOP 

98 120 CX-CX+A:POKE SA*LM6+D.A 
: NEXT D 

D9 130 READ A: IF AXCX THENPRIN 
T" ERROR IN LINE":LN+<LMO) :S 
TOP 

37 340 NEXTL:POKE43.0:POKE44.40 

: P0KE45 , 0 : P0KE46 . 56 
69 150 SAVE"AI RCRAFT" .8,1: END 
EF 160 REM****************"**** 

3B 170 REM TAPE USERS WILL NEED 
TO CHANGE DEVICE N 

UMBER FROM 8 TO 1 
FB 180 REM**** ********* •***•*•* 

2D 190 DATA 0.0.0.0.0,0,0,0,0.0 

.0.0.0.0.0,0,0 
IB 200 DATA 0.0.0,0.0.0,0.0.0,0 

.0.0.0,0.0,0.0 
01 210 DATA 0.0.0,0.0.0,0.0,0.1 

.0,0,0,0,0,0,1 
OF 220 DATA 0.0,0,0.0,0,0,0.0.0 

,0,0,0,0.0.2.2 
75 230 DATA 0.0.0,0.0.0,0.0.0.0 

.0.0.0,0.0,0.0 
63 240 DATA 0.0.0.0.0,0,0.0.0.0 

. .0,0.0.0.0,0.0 
69 250 DATA 0.0.0,0.0.0.0.0.0,0 

,0,0.0,0.0.0.0 
DE 260 DATA 0.0.0.0.0,0.0.0.0.0 

,0.0.0.0.0.251.251 
5C 270 DATA 0.0,0.0.0.0.0,0.0,0 

-0.0,0,0,0,0.0 
4A 280 DATA 0.0.0.0,0.0,0.0.0.0 

.0.0.0.0.0.0,0 
5E 290 DATA 0.0.0.0.0.0,1.0.0.1 

.0.0.7.0,0.0.9 
06 300 DATA 0,0,0.0.0.0.0,0,0,0 

,0.0.0.0,0.255.255 
A4 3J0 DATA 0.0.0,0.0.0.0.0.0.0 

.0.0.0,0.0.0.0 
92 320 DATA 0.0.0.0,0.0.0.0,0,0 

,0,0,0,0,0,0,0 
C8 330 DATA 0,0.0.0,0,0,0,0,0,0 

. 192. 0,0.0.0,0. 192 
88 340 DATA 0.0.0,0,0.0.0.0.0.0 

,0.0.0.0,0,254.254 
8C 350 DATA 0.0.0,0.0.0.0,0.0,0 

.0.0.0,0,0.0,0 
FA 360 DATA 0.0.0.0.0,0,0.0,0,0 

.0.0,0.0,0,0,0 
DO 370 DATA 0,0.0,0,0,0.1,0.0.3 

,0.0.31,0,0.0,35 
EE 380 DATA 0.0,0.0.0.0.0.0.0,0 

.0.0.0.0.0.0,0 
D4 390 DATA 0.0.0,0.0.0.0,0.0.0 

.0.0.0.0.0.0.0 
C2 400 DATA 0.0.0,0.0.0,0.0.0.0 

.0,0.0.0.0,0.0 
04 410 DATA 0.0.0.0.0,0,0,128.0 

.0,240.0,0.0.0.0,368 
BE 420 DATA 0.0,0.0.0.0,0.0.0.0 

.0.0,0.0.0,255,255 
3C 430 DATA 0.0.0.0.0.0.0,0.0,0 
,0.0.0,0,0,0,0 



2A 440 DATA 0.0.0.0,0.0,0,0.0.0 

.0.0.0,0.0,0.0 
5F 450 DATA 0.0.0.1.0,0,3,0,0.7 

.0,0.255.0.0.0.266 
IE 460 DATA 0.0.0,0.0.0.0.0,0.0 

.0.0,0.0.0.2.2 
04 470 DATA 0.0, 0.0. 0.0. 0.0. 0.0 

,0.0.0.0,0,0.0 
72 480 DATA 0,0.0.0.0.0.0.0,0.0 

.0.0.0,0,0.0,0 
A2 490 DATA 0.0,0,0.128,0.0.192 

,0,0,255.0.0,0,0.0.575 
6E 500 DATA 0.0.0.0.0.0.0.0,0.0 

.0.0.0.0.0.4,4 
6C 510 DATA 0.0.0.0.0.0.0,0.0.0 

.0,0,0.0.0.0,0 
59 520 DATA 0.0.0.0.0.0.0.0.0.0 

.0,0.0,1.0.0.1 
76 530 DATA 3.0,0.5.0,0.15.0,0. 
7.0.31.255.0,0,195.511 

39 540 DATA 0.0.0.0.0.0.0.0.0.0 
.0.0.0.0,0.253.253 

BB 550 DATA 0.0,0,0.0.0.0,0.0.0 

.0.0,0,0.0.0,0 
35 560 DATA 0,0,0.0.0.0,0.0.6.0 

.0.0.0.0,128.0.128 

40 570 DATA 0.64.0.0.192.0.0.22 
4 . 0 . 0 . 255 . 240 . 0 . 131 . 0 . 0 . 1 106 

9D 580 DATA 0.0.0.0.0.0.0.0.0,0 

.0.0.0,0.0,5.5 
83 590 DATA 0.0.0.0.0.0,0.0,0.0 

.0.0.0.0.0.0.0 
8B 600 DATA 0.0,0.0.0.0.0,0.0.0 

,1.0.0,1.0.0.2 
AD 610 DATA 7.0.0.9,0,0.57.0,0. 

7.0.6.7.7.255.255.610 
OA 620 DATA 0.6.3.0.0.0.0.0.0.0 

.0,0.0.0.0.255.264 
EB 630 DATA 0.0.0.0.0.0.0.0.0.0 

.0.0.0.0.0.0,0 
61 640 DATA 0.0.0.0.0.0,0.0.0.0 

,0,0,0,0.192.0.192 
AO 650 DATA 0.32.0,0,56.0.0,224 

. 0 , 0 , 225 . 1 28 , 0 . 255 , 255 , 192 , 1 

367 

38 660 DATA 129.128.0.0.0.0.0.0 

.0.0.0.0.0.0.0.1.258 
33 670 DATA 0.0.0.0,0.0.0,0.0.0 

,0.0.0,0.0.0,0 
3D 680 DATA 0,0.0.0.1,0,0.1.0.0 

.1,0,0.1,0,0,4 
7A 690 DATA 15.0.0,17.0.0.249.0 

. 0 . 15 . 0 , 28 . 15 . 31 . 247 , 255 . 872 

8C 700 DATA 0.28.3.0,0.0.0.0.0. 

0.0.0.0,0.0.2.33 
IB 710 DATA 0.0.0.0.0.0.0.0.0.0 

.0.0.0,0.0.0.0 
01 720 DATA 0.0. 0.0. 0,0. 0.0, 0.0 

.0.0.0.0.224.0.224 
E3 730 DATA 0 . 16 . 0 , 0 . 62 . 0 . 0 . 224 

. 0 . 0 . 224 . 224 . 0 . 255 . 191 . 240 . 1 

436 

01 740 DATA 128.224.0,0.0,0.0,0 

.0.0.0.0.0.0.0,251.603 
63 750 DATA 0.0.0.0.0.0.0.0.0.0 

.0.0.0.0.0.0.0 
61 760 DATA 0.1.0.0.1,0.0.1.0.0 

.3.0.0.3,0,0.9 
59 770 DATA 31.0.0,56.0.0.254.1 

5,7,31,0.253.143.0,7.127.924 

AA 780 DATA 0,0,3,0,0,0.0.0.0,0 

,0.0,0,0,0,255.258 
3E 790 DATA 0,0,0,0.0,0.0,0.0.0 

,0,0,0,0,0,128,128 
5C 800 DATA 0,0,128,0,0,0,0.0,0 

,0.0,0,0,0,240,0,368 
BF 810 DATA 0.72,0.0.88.0.0,240 

.0.0,240,0,0,255,224,0.1119 
B2 820 DATA 192,190.0,0.224,0,0 
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.0,0,0,0.0,0.0,0,1.607 
92 830 DATA 0,0.0,0,0,0,0,0,0,0 

,0.0.0,0,0.0,0 
E2 840 DATA 0.16,0,0,24.0,0.24. 

0,0,28.0,0,28,0,0,120 
ED 850 DATA 255.0,1.248,0,0,124 

, 1 , 192 , 127 . 0 , 63 . 255 , 0 , 1 , 255 . 

1522 

FE 860 DATA 0.0,195.0.0.0,0.0.0 

.0.0.0.0.0,0.2,197 
FA 870 DATA 0,0,0.0,0.0.0.0,0.0 

.0.0,0,0.0,0.0 
68 880 DATA 0.0. 0.0. 0.0. 0.0. 0.0 

.0,0.0.0.240,0,240 
B6 890 DATA 0.72,0.0.92,0.0.252 

.0.0. 254 .0.0. 254 . 0 . 0 . 924 
E7 900 DATA 231,224.0,0.0.0.0.0 

.0.0.0.0.0.0.0.251 ,706 
C2 910 DATA 0.0.0,0,0.0.0.0.0.0 

.0.0.0,0.0.0,0 
F9 920 DATA 2.0.0.3.0.0.3.0.0.3 

.0.0.3,0,0,7,21 
IE 930 DATA 255.0.7.234,0.3.255 

, 0.3. 255, 0. L, 255. 0,63. 255 , 15 

86 

E2 940 DATA 0.3.152.0.0.0.0.0.0 

. 0. 0, 0,0. 0, 0. 255 .410 
2A 950 DATA 0.0.0.0.0.0.0.0.0.0 

.0,0,0.0.0.0,0 
78 960 DATA 0,0.0.0.0.0.0,0,0,0 

,0.0.0,0.248.0.248 
A4 970 DATA 0 . 1 12 . 0 , 0 . 100 . 0 . 0 . 2 

54 . 0 . 0 . 255 , 0 . 0 . 255 , 0 , 0 , 976 
92 980 DATA 255.224,0.1.128,0,0 

,0.0.0.0.0.0,0.0,1.609 
72 990 DATA 0.0.0.0,0.0.0.0.0,0 

,0,0,0,0.0.0.0 
FD 1000 DATA 16,0.0.24,0,0.24.0 

,0,24.0,0.24,0,0,31.143 
25 1010 DATA 255.0,63.250.0.7,2 

50.0. 1.255,0.0,63,0.0.127.12 

71 

68 1020 DATA 0.0.3,0.0.0.0.0.0. 

0,0.0.0.0.0.2.5 
59 1030 DATA 0.0.0.0.0.0.0.0,0. 

0.0.0.0,0.0.0,0 
B2 1040 DATA 0.0.0.0, 0.0. 0.0.0. 

0.0,0.0,0,255.192.447 
AF 1050 DATA 0.173,0.0.173.160. 

0 . 255 . 248 . 0 . 255 , 252 , 0 . 255 . 25 

2.0, 2023 
BF 1060 DATA 255,224.0.0.0.0.0, 

0,0.0,0,0,0.0.0.251.730 
Al 1070 DATA 0.0.0,0,0.0.0.0.0. 

0.0.0,0.0.0,0.0 
30 1080 DATA 64,0.0.96,0.0.96.0 

.0, 112,0.0, 120.0.0. 127.615 
72 1090 DATA 255.0.255.253.0,31 

,253.0.7.255,0.0.63.0.0,7,13 

79 

8B 1100 DATA 0.0,0,0.0.0.0.0,0. 

0.0,0,0.0.0.255.255 
89 1110 DATA 0.0.0.0,0,0.0.0,0. 

0.0.0.0,0.0.0.0 
8F 1120 DATA 0.0.0.0-0.0.0.0.0. 

0.0.0.0.0.255.248.503 
C4 1130 DATA 0.182.128.0.182.19 

6.0. 255 , 255 .128. 255 , 255 . 224 . 

255.255.192,2762 
A5 1140 DATA 255.248.0.0.0.0.0. 

0.0,0,0,0.0.0.0. 1 .504 
D7 1150 DATA 0.0.3.0.0.1,0.0.0. 

0.0.0.0.0.0.0.4 
DF 1160 DATA 0.0.0.0.0.0.0.0,0, 

0.0.0.0.0.0.0.0 
C5 1170 DATA 0,0,0.0.0.0,0,0,0, 

0.0.0,0.0.0.0.0 
CB 1180 DATA 0.0,0,0.0.0,0.0,0, 

0,0.0,0.0,0.4,4 
BD 1190 DATA 128.0,0,0.0.0.0,0. 

0,0.0,0,0.0.0,0.128 
27 1200 DATA 0.0.0,0.0.0.0,0,0, 



0.0.0,0.0.0.0.0 
2D 1210 DATA 0.0.0,0.0.0,0.0,0, 
0.0.0.0.0.0.0.0 

67 1220 DATA 0,0,0.0,0.0.0,0,0, 
0.0.0,0.0,0.253.253 

76 1230 DATA 0.0.0.0.0.0.0.0,7, 

0.0,1.0,0.3.0.11 
64 1240 DATA 0.3.0,0.3.0.0,5.0. 

0,0.0.0.0,0.0.11 
75 1250 DATA 0.0.0,0.0.0.0.0.0. 

0.0,0.0.0.0.0.0 
EB 1260 DATA 0.0.0.0,0.0.0.0.0. 

0.0.0. 0.0.0.251 . 251 
AF 1270 DATA 0.0.0.0,0.0.192.0. 

0,0,0.0.128.0.0.128. 448 
4F 1280 DATA 0,0.128,0,0.64,0.0 

,0,0.0.0.0.0.0 .0, 192 
5C 1290 DATA 0.0.0,0.0.0.0.0.0. 

0.0. 0.0. 0.0. 0.0 
BC 1300 DATA 0.0,0.0,0.0,0,0.0. 

0,0,0,0,0.0.92.92 
A2 1310 DATA 0.0.0.0.0.0,0,0,0, 

0.0,0.0.1.255.0.256 
A3 1320 DATA 0.1.0.0.3.0.0.4.0. 

0.4.0.0.6.0.0.16 
99 1330 DATA 7.0,0.3.0,0,5,0.0. 

0,0.0,0.0.0.0.15 
8C 1340 DATA 0.0.0.0.0.0,0.0.0. 

0,0.0,0.0.0.90.90 
38 1350 DATA 0.0,0.0,0.0.0.0.0. 

0.0.0.255.0.0.0.255 
FF 1360 DATA 0.0.128,0,0.64,0,0 

,64.0,0.192.0.0.192.0.640 
31 1370 DATA 0.128.0,0,64.0.0.0 

.0,0.0,0,0.0,0.0,192 
2C 1380 DATA 0.0.0.0.0,0,0.0.0, 

0.0,0.0.0.0,93,93 
91 1390 DATA 0,0,0,0,0.0.0.0.0. 

0,0.1,0,63.255,0.319 
87 1400 DATA 0.1,0,0.7,0.0,7.0. 

0.9,0.0,9.0,0.33 
BA 1410 DATA 9.0.0.9,0.0.9.0.0. 

15,0.0,11,0.0.7.60 
BC 1420 DATA 0.0.11.0.0.8.0,0,1 

6.0.0,0.0.0.0.91.126 
2D 1430 DATA 0.0.0.0,0.0.0.0.0, 

0,0.0.255,252.0.0.507 
El 1440 DATA 0.0.192,0,0.192.0, 

0.128.0.0.32.0.0.32,0.576 
31 1450 DATA 0.32.0.0.32-0,0.22 

4,0.0, 160.0,0. 192.0,0.640 
EA 1460 DATA 160.0.0.32,0.0.16. 

0.0,0.0.0.0.0.0.3.211 
02 1470 DATA 0.0.0.0.0.1.15.255 

.255.0.0,1,0,0,1.0.528 
4A 1480 DATA 0.7.0.0.3.0,0,7.0. 

0. 15,0.0, 17.0,0.49 
8C 1490 DATA 17.0,0.17.0.0.25.0 

.0.31,0,0.19.0.0.19.128 

68 1500 DATA 0.0.11.0.0.15.0.0. 
16.0.0.32.0.0.64.0.138 

25 1510 DATA 0.0.0.0.0.0.255,25 

5,224.0,0.0.0.0,0,192.926 
83 1520 DATA 0.0.128,0.0.192,0. 

0,224.0.0,16.0.0.16.0.576 
27 1530 DATA 0.16.0.0.48.0.0.24 

0.0,0.144,0.0.144.0.0.592 
D2 1540 DATA 160.0,0.224.0.0,32 

,0.0,16.0.0.8.0,0.2.442 
7B 1550 DATA 0.0,0,0.0.1,0.1.25 

5,0.0,1.0,0.1,0.259 
E7 1560 DATA 0.7,0.0.3,0.0,7.0. 

0, 15.0,0. 17.0,0.49 
73 1570 DATA 17,0,0.17.0.0,25.0 

,0.31,0,0,19.0,0.19.128 
DC 1580 DATA 0.0.11,0.0,15,0,0. 

16 , 0 . 0 . 32 . 0 . 0 . 64 . 9 1 , 229 
AC 1590 DATA 0.0.0.0.0.0.254.0. 

0.0.0,0.0,0.0,192.446 
82 1600 DATA 0.0.128,0.0.192.0. 

0,224.0.0.16.0.0,16.0.576 
A2 1610 DATA 0 . 16 . a. 0 . 48 , 0 , 0 , 24 



0.0,0,144.0,0.144.0.0,592 
E2 1620 DATA 160,0.0,224,0.0.32 

.0.0.16.0.0.8.0.0.3.443 
61 1630 DATA 0.0,0.0,0.1.15.255 

.255.0,0. 1.0.0.1 .0,528 
49 1640 DATA 0.7,0.0.67,0.0.127 

.0.0. 127. 0.0. 57. 0.0. 385 
C2 1650 DATA 57,0.0,56.0.0.24.0 

.0.31 .0.0.30.0.0.30,228 
65 1*60 DATA 0. 0,15. 0.0. 7. 0.0. 2 

0,0.0. 12.0.0.6.2.62 
C4 1670 DATA 0.0,0.0.0,0,255.25 

5,224.0, 0,0,0.0.0. 192.926 
32 1680 DATA 0,0.128.0.0,192.0. 

0, 224,0.0. 16.0.0. 16 .0,576 
77 1690 DATA 0,144.0.0.176.0.0. 

240 . 0 . 0 . 80 . 0 . 0 . 80 . 0 . 0 . 720 
AC 1700 DATA 224.0.0.240.0.0.8, 

0.0.12.0.0.4.0.0.254.742 
71 1710 DATA 0.0,0,0,0.1.15.255 

, 255.0.0. 1.0,0. 1 ,0,528 
7C 1720 DATA 4.7,0,7.195,0.7,25 

5 , 0 . 5 , 255 . 0 . 0 . 246 . 0 . 0 . 98 1 
0C 1730 DATA 244.0.0.116,0,0.12 

4.0,0.63,0.0.62,0.0,30.639 

38 1740 DATA 0.0,31.0,0.103,0.0 
,25.0.0.7.0,0.0.69,255 

94 1750 DATA 0. 0 , 0 . 0 . 0 . 0 . 255 . 25 

5,224,0.0.0.0.0.0. 192.926 
D9 1760 DATA 0.0.128.0.0.192.0. 

0.192.0.0.224.0,0.80.0.816 
2C 1770 DATA 0,40.0.0.24.0.0.25 

2,0.0.60.0.0.124.0.0,500 
86 1780 DATA 248.0.0.240.0,0,8. 

0,0.4,0.0.0.0,0.255.755 

39 1790 DATA 0.0.0,0,0,0.3.255, 
255.0.0.0.0.0.0.0.513 

C6 1600 DATA 128,7.1,255.131.1. 
255 , 255 , 0 . 131 . 255 . 0 . 1 . 252 . 0 . 
0.1672 

IF 1810 DATA 252.0.0.124.0.0.6?, 

,0,0.31,0.0,15,0.0.7.491 
EF 1820 DATA 0.0.23.0.0,25,0,0. 

6,0,0.1,0.0.0,89,144 
A2 1830 DATA 0.0,0,32.0.0.255.2 

55,252,32.0.0.32,0.0,252. Ill 

0 

14 1640 DATA 0.0.248.0.0.252.0. 

0 . 254 . 0 . 0 , 66 , 0 . 0 . 65 . 0 . 885 
47 1850 DATA 0.64.120.0.65.128. 

0 , 255 ,192,0, 240 . 224 , 0 . 241 , 22 

4,0.1761 
B7 1860 DATA 255.192.0.254.0,0, 

40,0.0.231 .0.0.0.0.0.255. 122 

7 

4E 1670 DATA 0.0.0.0.0.0,3.255. 

255 .0,0. 0.0. 0.0, 32. 545 
D5 1880 DATA 0,7.255.255.131.12 

7 , 255 . 255 . 64 . 127 . 255 . 0 , 15 , 25 

2,0.3,2001 
DE 1890 DATA 252.0,1.252.0.0.25 

4 . 0 , 0 . 1 27 . 0 . 0 . 63 . 0 . 0 . 15 . 964 
DF 1900 DATA 0.0.7.0.0,3,0.0.2. 

0,0,2.0.0.63.2.79 
90 1910 DATA 32.0.0.48.0.0.255. 

255 . 255 , 48 . 0 . 0 . 48 . 0 , 0 . 255 . 1 1 

96 

79 1920 DATA 0,0,254.0.0.255.12 
8.0.255 . 192.0.48. 160. 0.48. 14 
4,1484 

FD 1930 DATA 0.48,72.0.48,68.0. 

255 . 254 . 0 . 255 . 195 . 1 28 . 255 . 19 

9,0,1777 
87 1940 DATA 255.222.0,255.246. 

0 , 2 , 0 . 0 . 2 . 96 . 0 . 255 . 1 28 . 0 . 254 

. 1717 

OF 1950 DATA 0.0.0.0,0,0.0.0.25 
5.0.0.0.0.0.0.128.383 

8A 1960 DATA 0.7.255.255.131.12 
7 . 255 . 255 . 32 . 127 . 255 . 0 , 15 . 25 
2.0,3.1969 

AE 1970 DATA 252.0.1.252,0.0.25 
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4.0.0. 127.0.0,63.0.0,15.964 
E3 1980 DATA 0.0.7,0.0.3.0,0.2. 

0.0.2.0.0,63.0.77 
3A 1990 DATA 32.0.0,48,0.0.255, 

252 . 0 , 48 , 0 . 0 . 48 . 0 . 0 . 255 ,938 
E9 2000 DATA 0.0.254,0.0.255.12 

8,0. 255. 192. 0,48. 160,0,48. 14 

4. 1484 

6D 2010 DATA 0 . 48 . 72 . 0 . 48 . 68 . 0 . 

255,254.0.255, 195. 128.255.19 

9.0, 1777 
F4 2020 DATA 255.222.0,255.248, 

0,2,0,0,2,96.0.255.128,0,1.1 

464 

64 2030 DATA 0.0,0.0.0,0,0.0,1. 

0.0.1.0.0.1,0,3 
72 2040 DATA 0,1.0,3,225,0.15.2 

55 . 0 . 63 . 255 , 0 . 255 . 255 . 3 . 255 . 

1585 

1A 2050 DATA 255.0.0.31.0.0,5.0 

.0-9.0,0,11.0.0.15,326 
A3 2060 DATA 0.0,3.0.0.0.0.0.0. 

0.0.0.0.0,0.91.94 
4D 2070 DATA 0.0.0.0.0.0.0.0.0. 

0.0.0.0.0.0.0.0 
94 2080 DATA 0.0.15,128.0.255.2 

24 . 0 . 255 . 248 . 0 . 255 . 254 . 0 . 255 

.255.2144 
9C 2090 DATA 128.240,0.0.64.0.0 

.160.0.0.160,0.0.224,0.0.976 

FA 2100 DATA 192,0.0.0.0,0.0.0. 

0.0.0,0,0.0.0.91 .283 
97 2110 DATA 0.0.0.0.0.0,0.0,1, 

0,0.1.0.0.1 .0.3 
61 2120 DATA 15.225.0.63,255,0, 

1 27 . 255 . 0 . 1 27 . 255 . 1 . 255 . 255 . 

3,255.2091 
27 2130 DATA 255.0,0,1.0.0.3.0. 

0,3,0.0.31,0.0,15,308 
IB 2140 DATA 0,0.7.0,0.0.0.0.0. 

0,0.0,0,0.0.2.9 
FD 2150 DATA 0.0,0.0.0.0,0.0.0. 

0.0.0,0.0.0.0.0 
08 2160 DATA 0.0,15.224.0.127.2 

48 . 0 . 255 . 254 . 0 , 255 , 240 . 0 , 255 

,0,1873 

Dl 2170 DATA 0.240.0,0.224.0.0. 

0.0.0.224.0.0,224.0,0.912 
45 2180 DATA 224.0.0,224.0.0.0. 

0.0.0.0.0.0.0.0. 164,612 
C7 2190 DATA 0.0.0.0,0.0.0.0.1, 

0.0. 1,0,0,1,0,3 
84 2200 DATA 0.1.1.255.255,0.25 

5 . 255 . 0 . 1 27 , 255 , 0 , 63 . 255 . 0 , 6 

3.1785 

77 2210 DATA 255.0.31.255.0.15. 

252.0.0.0,0.0.0.0.0,15.823 
47 2220 DATA 0.0.7-0,0.0.0,0.0. 

0,0.0.0.0.0.0.7 
2D 2230 DATA 0.0.0.0.0.0.0.0.0. 

0.0.0.0.0.0.0.0 
5B 2240 DATA 0.0.255.254.0.255. 

254 . 0 . 255 . 254 . 0 . 255 . 248 . 0 . 25 

5. 128.2413 
CB 2250 DATA 0,240.0.0.112.0,0. 

52.0. 0. 124.0,0.248,0-0.776 

42 2260 DATA 248.0.0.56,0.0.0.0 
.0.0.0-0,0.0.0.89.393 

77 2270 DATA 0.0.0,0.0.0.0,0.1, 
0.0. 1.0.0.1.0.3 

43 2280 DATA 0.1,255.255,255.12 
7 . 255 . 255 . 31 . 255 . 255 . 15 . 255 . 
255. 15,255,2739 

05 2290 DATA 255.7.255.255.7.25 
5 .252.7. 254.0.0.0.0.0.0.63. 1 
610 

2300 DATA 0,0,63.0,0.32.0.0. 
0.0.0.0.0.0,0.89. 184 
2310 DATA 0.0,0.0,0.0.0.0.0, 
0.0.0,0.0.0.0,0 
BC 2320 DATA 0.0.255.255.254.25 



5 . 255 . 248 , 255 . 255 . 0 . 255 , 248 . 

0,255.128,2918 
71 2330 DATA 0,240,0,0,64.0.0,3 

5,0.0,127.0.0.252.0.0.718 
Bl 2340 DATA 248.0.0.8.0.0,0.0. 

0.0.0.0.0.0.0.165.421 
AO 2350 DATA 0.0.0.0.0.0.0,0.2. 

0.0.2.0.0,2.0.6 
5B 2360 DATA 0,1.0.0.1.0,0.15,0 

. 0 . 255 , 0 , 1 5 , 255 , 0 . 1 27 . 669 
57 2370 DATA 255.3.255.255.63.2 

55 , 254 . 63 . 255 . 248 . 31 . 255 , 240 

.3.255.255.2945 
5B 2380 DATA 0,254.63.0.0.32,0. 

0.0,0.0.0.0,0.0,89, 438 
1A 2390 DATA 0.0,0,0.0.0.0.0,25 

4 . 0 , 15 , 248 . 1 . 255 . 1 92 . 31 . 996 
60 2400 DATA 254.0.255,248.0,25 

5, 192,0,255.0.0. 240.0.0, 224. 

0.1923 

40 2410 DATA 0.224.0.0.19,0.0.1 

5,0.0,124,0.0. 248 ,0.0.630 
8A 2420 DATA 136.0,0.0,0.0,0,0. 

0.0.0.0.0.0,0.252.388 
DE 2430 DATA 0.0.2.0.0.2,0,0.2. 

0.0.1.0.0.1,0.8 
BC 2440 DATA 0.15.0.0.255,0.15, 

255 . 0 . 1 27 . 255 . 3 , 255 , 255 . 63, 2 

55, 1753 

C7 2450 DATA 254.63.255.248,31. 
255.240.3.255.241.0.254.1,0. 
0.1, 2101 

9A 2460 DATA 0.0,1,0.0.3.0,0,1, 

0,0.0.0.0.0.95.100 
01 2470 DATA 0.0.254.0.15.248.1 

.255, 192.31 , 254.0.255.248,0. 

255 . 2008 
25 2480 DATA 192.0.255.0.0.240, 

0.0.224.0.0,224,0.0,19,0,115 

4 

B4 2490 DATA 0.15.0.0.124.0,0,2 

48.0.0,200.0.0.192.0.0.779 
38 2500 DATA 64.0.0,128.0.0,0,0 

.0,0,0,0,0.0,0,90,282 
01 2510 DATA 0,0,1.0,0.1,0.0.1. 

0 , 0 , 1 . 255 . 255 . 255 . 1 27 . 896 
AC 2520 DATA 255,255.31,255.255 

. 15 , 255 , 255 , 15 , 255 , 255 . 7 , 255 

,255,7.255,2880 
06 2530 DATA 252,7.254,0,0.0,0, 

0.0.0.0,0.0.0.0.0.513 

82 2540 DATA 0.0.0,0.0.0.0.0.0. 
0.0.1.0.0.1.91.93 

38 2550 DATA 0,0,0,0.0,0.0,0.0, 
0,0,0. 255 . 255 . 254 . 255 ,1019 

4B 2560 DATA 255.248.255-255.0. 
255 , 248 , 0 . 255 . 1 28 . 0 . 252 . 0 . 0 , 
76.0,2227 

40 2570 DATA 0.24.0.0.56.0.0.56 
.0. 0, 120,0.0. 104. 0.0.360 

Bl 2580 DATA 112.0.0.48.0.0.96. 
0.0, 160.0.0.48. 0,0. 1 .465 

OA 2590 DATA 0.0,0,0,0,0.0,0.0. 
0.0.0.15,0.0.7,22 

F2 2600 DATA 224.0.3.252.0.1.25 

5 , 1 28 . 1 . 255 . 240 . 0 . 255 . 254 . 0 . 
63,1931 

FB 2610 DATA 255.0.31,255.0,7,2 
55 , 0 . 7. 255 . 0 . 1 . 255 . 0 . 0 . 63 . 1 3 
84 

64 2620 DATA 0.0.40.0.0.36.0.0. 
36.0.0,54.0.0.0.6,172 

83 2630 DATA 0.0.0.0.0.0.0,0,0, 
0.0.0.0,0-0,0.0 

88 2640 DATA 0.0.8.0.0.8-0.0.16 

.0.0.16.0.0.224.0,272 
FC 2650 DATA 0.248.0.0.255.128. 

0 . 255 . 240 . 0 . 255 . 254 , 0 . 255 , 25 

5. 192. 2337 
OB 2660 DATA 0.15.248.0.0,31.0. 

0,0,0.0.0.0.0.0.253.547 
50 2670 DATA 0.0.0.0,0.0.0.0.0. 



15.0.0.7,224.0.3.249 
10 2680 DATA 252.0,1.255,128,1. 
255 , 240 . 0 . 255 - 254 . 0 . 63 . 255 . 0 
.31 .1990 

9B 2690 DATA 255.0.7.255.0.7.25 

5.0.1.255.0.0.63.0,0.7.1105 
C3 2700 DATA 0.0.0,0.0.0.0.0,1 

0.0.1.0,0.1.6.9 
33 2710 DATA 0.0.0.0.0.0.0-0.0, 

0.0,0.0,0.0,0.0 
13 2720 DATA 0.0.4,0.0.4.0.0.8. 

0.0.200.0.0.248.0.464 
C4 2730 DATA 0,252.0,0,255,0,0. 

255 , 192 . 0 . 255 . 240 . 0 , 255 . 252 . 

0. 1956 

44 2740 DATA 255.255.0.129.255, 
192,128.15,240,0.0.252.0.0,0 
'.0,1721 



PROGRAM: AIRCRAFT DISPLAY 



85 10 rem*'*******"************ 



31 



cb 



6f 



5a 



86 



6d 



9c 



8d 



□5 



37 



3d 



20 rem* sprite lirbary displ 
ay * 

30 rem- aircraft 
■ 

40 rem****"'"******«*"*»***« 
*• ** 

50 poke55,0:poke56,40:x=xH: 
if x=lthenload"aircraf t",8. 1 
60 v-5324e ; print"[clsIfbluM 
26cdl (9crl[rev)f7 to stop an 
imat ion" 

70 POkev421,15:pokev+23.12:p 
okev+29 . 12:pokev+32. 1 ;pokev* 
33. 1 :pokev*39,0 
80 pokevi40.0:pokev441,0:pok 
ev+42. 0: pokev. 80: pokev+1 . 150 
: Pokev+2 . 104 ; pokev+3 . 150 
90 pokev+4 . 200 : pokev*5 . 150: p 
okev*6 . 248 : pokev*7 . 150 
100 input" [hom) fcdlstart spr 
ite" ; s: inpufend sprite" ; e:i 
nput"delay'*:d 

110 f orsp-stoestep2:fort=0to 
d: next : print " I horn I "tab(23) "s 
prite no . -" ;sp: poke2040.sp 
120 poko2041 ,sp+l : poke2042.s 
P:poke2043.sptl :next :aetk$ i i 
fk$-"[f7)"thenl00 
130 gotollO 



PROGRAM : ADV LOADER 3 



af 10 rem** *•*••<• *****••**•*» * • 
« 

9d 20 rem' adventure kit part3 

3e 30 rem" object module 
» 

9d 40 rem 1 *' , '*" 1, "»'»"»<»"» 
■ 

ee 2000 f orl-0to45:cx-0tf ord=0t 
ol5 : reada : cx-cx+o : poke49152+ 
l*16+d.a:nextd 

2010 reada: if aOcxthenprint" 
error in 1 ine" ; 2040+ { 1* 10) :s 
top 

2020 nextl :end 
2040 data76.33, 192,76.66, 192 
.76.83,192.76,104.192.76.146 
.192.76.1848 

2050 datal61.193.76.231.193. 
76,10,194.76.50.194.76,73,19 
4.16.15,1828 
bO 2060 datal,32.137. 194. 141,76 



82 



al 
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LISTINGS 



,3,32,137,194.141.72,3.32.97 

.194.1486 
52 2070 datal60.0. 177.251, 140.7 

8,3. 205 ,72.3. 208 , 5 . 169 , 255 . I 

41.78,1945 
87 2080 data3.96.32.137.194,141 

.76.3,32.97,194. 160.2. 177. 25 

1 . 141 , 1736 
4e 2090 dato79.3.96,32. 137. 194. 

141.76.3.32.39.192.173,78.3. 

240,1518 

19 2100 data6. 160.0. 169 .255, 145 

, 25 1 , 96 , 32 . 137 , 194 . 141 . 76 , 3 , 

32,137,1834 
17 2110 datal94.141,83.3.169.25 

5.141,72,3.32.45.192. 173,78, 

3,240,1824 
81 2120 datol6,32.97, 194, 160,0. 

173,83.3.145.251.160.1.169.0 

,145,1629 
5c 2130 data251. 96.32, 137, 194.1 

41.72.3.32.137,194.141.73,3. 

32,137.1675 
c3 2140 datal94, 141,75.3.173.73 
,3,208.11.169.0.141,74.3.141 
,78. 1487 

06 2150 data3, 76, 166. 192.32,137 

, 194.141,74,3.169.0.141.76,3 

,141.1568 
98 2160 data82, 3, 32. 22. 193.32,9 

7.194.160.0.177.251,205.72.3 

.208.1731 
3f 2170 data34. 238,82,3. 173.78, 

3 , 240 , 1 2 . 160 . 1 . 177 . 25 1 . 240 , 6 

,173.1871 
4f 2180 data32. 192.141.134.2,17 

3 . 73 . 3 . 240 . 6 . 32 . 41 , 193, 76 . 24 

3,192,1773 
89 2190 data32.87.193,238.76,3, 

173 . 76 . 3, 205 . 81 . 3 . 208 . 199 . 17 

3.73.1823 
89 2200 data3. 208.3. 32, 153. 193. 

173 . 82 . 3 . 208 . 10 . 32 . 151 . 194 . 1 

69. 196. 1810 
12 2210 datal60.194.32.30,171.9 

6,32.151.194.173,77.3.240.10 

,169.167,1699 
11 2220 datol60.194,32.30.171,2 

38.75,3.96.32.151.194.24,165 

.251.105,1921 
Cb 2230 data4. 133.253.165.252,1 

05 . 0 , 133 . 254 , 1 60 . 3, 177 , 25 1 , 1 

41,63.3,2117 
5b 2240 datal60.0. 177.253,32. 21 

0 . 255 . 200 . 204 ,83,3, 208 , 245 . 2 

30,75.3.2346 
a3 2250 datal73 . 31 , 192 . 141 . 134 . 

2,96, 160.3.177.251 . 141.83.3, 

32.162.1781 
64 2260 datal94. 24, 152. 109.83.3 

, 201 . 40 . 144 . 9 , 238 . 75 , 3 . 32 , 15 

3.193.1653 
36 2270 data32.151.194.24.165,2 

51.105.4, 133.253, 165.252. 105 

.0.133,254.2221 
c7 2260 datal60.0, 177,253.32. 21 

0 , 255 , 200 . 204 . 83 . 3 . 208 . 245 , 1 

73.31. 192. 2426 
4f 2290 datal41.134.2.169.44.32 

,210,255,96. 169.204. 160.194, 

32,30. 171 . 2043 
a5 2300 data96 . 32. 137. 194, 141,7 

3. 3,32. 137. 194, 141 .75.3. 173. 

73,3.1507 
b4 2310 data208.8. 169 .0. 141 .74 . 

3.76.192.193.32.137.194.141. 

74.3.1645 
dc 2320 datal69.0.141,76.3,141, 

62.3.169,1.141,78.3.32.151.1 

94,1364 

al 2330 datal73,77.3.240.10.169 
.178,160-194,32.30,171.238.7 



5.3,169,1922 
90 2340 data255.141.72,3.76.197 

, 192.32,137.194.141.76,3.32. 

97, 194. 1842 
6d 2350 datal60,0.177.251.201.2 

55 .240.6. 169.0. 141 . 78 . 3 . 96 . 1 

69.255.2201 
81 -2360 datal41.78.3.169.1.160, 

1,145.251.96.32.137.194.141, 

81.3.1633 
20 2370 data32. 137, 194. 141. 30,1 

92. 32. 137. 194. 141. 31. 19 2. 141 

.134.2.32.1762 
8f 2380 datal37.194. 141.32. 192. 

32 . 137 . 1 94 . 141 , 32 . 208 , 32 . 137 

,194.141.33.1977 
62 2390 data208,96,32, 137, 194.1 

41,76,3,32.137,194.141.72.3. 

32.97.1595 
5b 2400 datal94, 160. 0.173.72.3. 

145 , 25 1 , 96 . 32 . 1 37 . 194 . 14 1 . 76 

.3. 160. 1637 
0a 2410 datal.177.251.208.6.169 
.255. 141.76.3.96. 169.0, 141.7 
8.3. 1776 

c9 2420 data96. 169.0. 133.251, 16 

9,128, 133.252.24.173.30. 192. 

105.4.141,2000 
9c 2430 dato80.3,172,76.3.240.1 

7,24.165.251,109.80.3.133.25 

1,165. 1772 
60 2440 data252. 105.0. 133.252.1 

36 . 208 . 239 . 96 . 32 . 253 , 174 . 32 . 

136.173,32.2255 
93 2450 data247. 183,165.20.164. 

21 . 96 , 1 74 . 75 . 3 . 172 . 74 . 3 , 24 . 3 

2.240. 1693 
a5 2460 data255.96.56.32.240.25 
5,96.73.32.67.65.78.32.83.69 
,69,1596 

da 2470 datal3.0.89.79.85.32.65 
. 82 , 69 . 32 . 67 , 65 . 82 . 82 . 89 . 73 . 
1004 

8c 2480 data78,71.13.0,78.79.64 
. 72 . 73 . 78 , 71 . 0 . 157 , 32 . 13 , 0 . 8 
99 

3d 2490 datal. 32.4.153.245.36.1 
98 . 85 . 127 . 1 40 , 246 . 38 . 198 . 86 . 
160.143.1892 



PROGRAM: ADV EDITOR 3 



4b 10 iffl-lthen fl-2: loadfiJ. 
de.l 

05 20 iff 1 = 2 ooto50 

6c 30 poke 56.96:clr: sa-8'4096 

66 40 poke 53280 . 0 : poke53261 , 0 : 

poke646, 15 
83 50 printchrJ(147)tob(15) "obj 

ect editor" 
cc 60 print " (down3) "tab( 12) " I . 

setup database" 
94 70 printtab(12l "2. alter ent 

rv" 

5c 80 printtab(12>"3. test loca 
tion" 

6c 90 P rinttab(l2>"4. save data 
base" 

5c 100 printtabl 12> "5 . load dat 
abase" 

91 110 printtab(12> "6 . show en t 

fc 120%eti$ : if i$<"l"ori$>"6"th 
enl20 

dl 130 on valliSl goto 140.220, 

330.570.380.420 
ef 140 input" [clr I input length 

of name":nl 
9e 150 inrut " Idown] number of o 



hj ects" : no 
8a 160 if (nl-t4)'no<2048 then 1 
80 

25 170 print'insuf f icient memor 
y...try again" :f ord-ltolOOO: 
next :gotol40 

84 180 sysl2M096 + 21.no,nl,15.l 
5,0.0 

c6 190 print" ldown3| initial isin 

g " 

b8 200 fori-0toinl+4)'no: poke 

sa+i . 0 : next 
aO 210 goto50 

88 220 input " (c lrlobject number 
" ; ob:if ob>peek<849)-lth*n22 
0 

0e 230 nl-peek(491821 :ad-satfnl 

i4) 'ob 
b8 240 gosub490 

17 250 input" (down21 location":* 

poke ad. a 
6e 260 inpufworn flag": as poke 
ad+1 ,a 

25 270 input"weight";a: pokead+ 
2. a 

7d 280 input "object name".-a$:i 
f len{a$)>16 then a$-left$(a 
$.16) 

ab 290 poke ad+3.1en(a$) 

5c 300 fori-0topeek(ad+3)-l 

dc 310 poke ad +4+i . osc (mid$ I a$ , 

i+l.D) :next 
cd 320 goto50 

9b 330 input" [clrl location numb 
er": lo 

f9 340 print" idown21 location" lo 

" contains" 
bl 350 sys 12*4096+12.1o,0.6 
a9 360 getil: if i$-""then360 
If 370 goto50 

2o 380 input "Iclilinput file n 

ame " ; f i S 
bO 390 input" Idownldevice (8-di 

sk. . .1-cassette) ":de 
d8 400 print" |down3| loading tab 



7e 410 f 1-1 :gotol0 
eb 420 nl-'peek{49182) :printchr$ 
(147) 

56 430 for ob=0topeek ( 849) -1 : pr 

int"object"ob:print"(ct9) " 
81 440 go3ub490 

24 450 print" 

" :print:print 

Ba 460 getiS: if i$-""then460 

55 470 next 

ad 480 goto50 

ce 490 ad-sat ( n 1+41 'ob 

ed 500 prinf'ldownl location":pe 

ek(ad) 

ea 510 print "worn f lag" : peek ( ad 
+ 1) 

cc 520 print"weight":ppek)ad*2l 

f7 530 prinf'object name ";: £o 

ri-0topeek(ad+3)-l 
eO 540 c-peek(ad+4+i) : ifc-0 the 

n c-42 

04 550 printchrS(c) ; :next:print 
be 560 return 

65 570 restore;for )-870to924:r 
eadx: pokei .x: t-t*x-.next 

e7 580 if t< >5940 then prinf'da 
to error" : end 

5d 590 f a-sa+(peek(49182) +4) *pe 

ek(849) 

a3 600 input "(clrl input file n 

ame " : f i $ 
c3 610 input" Idownldevice (8-di 

sk . . .1-cassette) " :de 
75 620 print" |down31saving tabl 
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e2 
4e 
cf 



9c 



37 



eg " 

630 sys 870 f iS.de. 2,sa . f a 
640 goto 50 
650 data 32.212. 
74 . 32, 138. 173.32 
,20.72.165.21,72 
660 data 174. 32. 
47. 183. 165. 1 .41 , 
6.20.164.21.104. 
670 data 104. 133 
2,95.225.165.1.9 



225.32.253.1 
.247,183,165 
.32.253 
138.173.32,2 
254, 133, 1 . 16 
133,21 

,20.169,20,3 
.1.133,1,96 



PROGRAM: ADV DEMO 3 



rem" ■■••«»»**••****•• 
rem* adv kit part 3 ' 

rem" demonstration • 
rem" *••**••**»*»•»•«# 

sa-12'4096 

n-4: rem object numbers 
1-16: rem name length 



85 10 
8c 20 
f6 30 
db 40 
98 50 
14 60 
b5 70 

ad 80 sys sa+21 . 4 , 16 . 15. 1 . 0 . 0 : 

rem setup 
60 90 gosub290 
la 100 getiS:ifi$-""thenl00 
db 110 if i$«"l"then gosub290:g 

otolOO 
la 120 if i$-"t"thenl60 
52 130 if iS-"i"thenl90 

63 140 if i$-"d"th«n200 
87 150 if i$-"w"then230 

64 160 input " | home , down9 | take 
i tern number" : in 

d5 170 syssa+6,in.l :ifpeek<846 
) -0thenprint"not here" : qotol 
00 

e6 180 Print"taken" : gotol00 

03 190 gosub290:print"[home,dow 

nlOlyou have" :syssa+15. 0, 1 1 : 

gotolOO 

2c 200 input " { home , down9 I drop 

item number" ; in 
ec 210 syssa+9,in.l :ifpeek(846 

) =0thenprint"you ain't got i 

t" :gotol00 
21 220 print"dropped";gotol00 
f3 230 input " (home , down 1 0 I wear 

item number"; in 
17 240 syssa+27, in: if peek(846) - 

Othenpr int "you" re wearing it 

" :gotol00 
60 250 syssa*18. in 
75 260 if peek(S46) -Othenprint" 

you don't have that" 
be 270 if Peek<846)-255thenprint 

"you are now wearing it" 
21 280 gotolOO 

bl 290 print" [clr I location 1"js 

ys sa+12, 1,0,2 
8f 300 print" ldownl31 "tab(16) " [ 

rvsonj 1 (rvsof f look" 
80 310 printtab(16)"frvsonlt[rv 

soff lake" 
dc 320 printtab(16) "(rvsonldfrv 

sof f J rop" 
aO 330 printtabf 16) " Irvaonlwjrv 

soff I ear" 
el 340 printtab(16) " (rvsonl i [rv 

sof f J nventory " 
dl 350 return 



PROGRAM: B WAY SCROLL BAS 



45 1 data 120.169,78.141.20,3,1 

69.192,141.21,3 
d7 2 data 173.26.208.9.1.141,26 

.208.173,17,208 
84 3 data 41.127.141.17.208.169 



.252.141.18,208.173 
5e 4 data 2.221.9,3.141.2.221.1 

73.0.221.41 
7f 5 data 252.9.2,141.0.221,173 

.14.220.41,254 
19 6 data 141,14.220,88.169.0.1 

41.32.208.141.33 
ae 7 data 208,169.0,141.230.193 

. 169, 128, 141,231, 193 
3a 8 data 96.173,239,193.240.89 

.201,1.208.6,32 
75 9 data 139.193.76.172,192.20 

1,2,208.6.32,105 
b3 10 data 193,76.172.192.201.3 

,208.6.32,71.193 
95 11 data 76,172,192.201.4.208 

,6 .32 .37. 193.76 
e2 12 data 172.192.201,5.208.9. 

32,37, 193,32. 139 
f3 13 data 193.76.172,192.201,6 

,208.9,32.139. 193 
72 14 data 32.71.193.76.172,192 
,201 .7,208.9,32 

13 15 data 105.193.32.37.193.76 
. 172, 192.201 .8.208 

14 16 data 6,32.105.193.32.71,1 
93, 169. J91. 141 .20 

fd 17 data 3.169.192,141,21.3.1 

73.232,193,141,18 
e2 18 data 208,76.26,193.169.8, 

141.22.208.169.23 
d3 19 data 141.17,208.169.54.14 

1, 24.208. 169.237. 141 
f8 20 data 20.3.169,192.141,21. 

3.169.7.141.32 
77 21 data 208.32.15.194,169.0. 

141.32.208.169.252 
30 22 data 141.18.208,76.26.193 

,173.22.208.41.0 

42 23 data 9.16,13.235.193.141, 
22,208. 173. 17.208 

2b 24 data 41.248.13,236.193,14 

1 . 17. 208, 169,36. 141 
5e 25 data 24.208.169,6.141,32. 

208,32.173,193.169 
fa 26 data 0,141,32,208.76.78.1 

92.169,1,141,25 
f2 27 data 208,104.168.104.170. 

104.64.173,22.208.9 
de 28 data 248.24,109,233.193.4 

1.7,141.235.193.144 
52 29 data 17.56.173.230.193.23 

3.1.141,230.193.173 
97 30 data 231.193.233.0.141.23 

1.193,96.173.22.208 
4b 31 data 41,7,56,237.233.193. 

41.7.141,235,193 
83 32 data 176,17.24.173.230.19 

3. 105. 1 . 141, 230. 193 
93 33 data 173,231,193.105,0,14 

1.231,193.96,173.17 

43 34 data 208.9.248.24.109.234 
. 193.41 .7. 141,236 

e9 35 data 193.144,17.56.173.23 

0,193.233,240.141.230 
93 36 data 193,173.231.193,233, 

0,141,231.193.96,173 
63 37 data 17,208.41,7,56.237,2 

34.193,41.7,141 
9c 38 data 236.193,176,17,24,17 

3,230,193,105.240,141 
5e 39 data 230.193,173,231.193. 

105.0, 141 .231 , 193.96 
56 40 data 169,0,133.253.169.72 

, 133.254. 173.230, 193 
f0 41 data 133.251.173.231.193. 

133.252.162.18,160.0 
8d 42 data 177.251.145,253.200. 

192,40,208.247.165.251 
02 43 data 24.105,240.133.251,1 

44.2.230,252,165.253 
37 44 data 24,105.40.133.253.14 



90 

4c 

ad 

8b 

15 

b3 

4e 

96 

d5 

af 

05 

82 

80 

63 

be 

06 
07 
87 
47 



7e 
3d 
63 

5b 
6c 

71 
16 



4,2.230.254.202.208 

45 data 220.96.0.128.189.1.1 
.0.0.0.0 

46 data 0,173,0.220.160,0,16 
2.0.74.176,1 

47 data 136.74.176.1,200.74, 
176.1.202.74.176 

48 data 1.232,74,142.237.193 
.140.238.193,96,32 

49 data 240.193.174.237.193. 
172.238. 193. 138.208.7 

50 data 152.208.4.141.239.19 
3.96,224,0.208,20 

51 data 192.255.208.6,169.2, 
141.239.193,96.192 

52 data 1.208,5.169.1,141.23 
9. 193.96, 192,0 

53 data 208,20.224,255.208.6 
. 169.4, 141 .239. 193 

54 data 96.224.1,208.5.169.3 
, 141 ,239. 193,96 

55 data 192.255.208.20.224.1 
,208.6. 169.8, 141 

56 data 239.193.96,224.255.2 
08.237.169.7.141,239 

57 data 193.96.192,1.208,19. 
224.1.208.6.169 

58 data 6.141.239.193.96.224 
.255,208,5.169.5 

59 data 141 . 239 . 193, 96 . 0 

60 : 

61 : 

98 print chr$U47) 

99 print:print:print"the num 
ber printed is tho current d 
ata 1 ine number " 

100 t-0:for a*49152to49794 
110 read b : pokea , b : t B t+b 
115 printchrJ(19) ; P eek(63)+2 
56"peek(64) 

120 next a 

130 if t<>83841 thenprint "e 
rror in data":end 
140 sys 49152 
150 end 



WAY SCROLL HC 



10 --491S2 

12 I DISABLE INTEftUPTS.SEr UP 

13 ! INTERUPT VECTOR . ENABLE RASTER 

14 ! INTERUPT. SET UP VIC BANKS. 

15 ! DISABLE HARDWARE TIMER A. 

16 ! RE-ENABLE 1 NTERUPTS . 

17 ! 

20 SET! NT SEI 

30 LDA tClNTR 

40 STA 706 

50 LDA •>1HTR 

60 STA 789 

70 LDA 53274 

80 ORA #1 

90 STA 53274 

100 LDA 53265 

110 AND K127 

120 STA 53263 

130 LDA 1252 

140 STA 53266 

150 LDA 56578 

160 ORA *3 

170 STA 56576 

180 LDA 56576 

190 AND #252 
200 ORA «2 
210 STA 56576 
220 LDA 56334 
230 AND #254 
240 STA 56334 

250 CLI 

251 ! 

252 : SET SCREEN COLOURS. 

253 ! SET START VALUES TO BE 

254 ! STORED IN HAP 6 MAP'l 

255 ! (SEE WINDOW) 

256 ■ 

260 LDA to 
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270 STA 53260 
280 STA 53281 
290 LDA #'-32768 
300 STA HAP 
310 LDA #>32768 
320 STA MAPH 

997 • 

998 RTS 

1000 ! 

1001 ! CHECK TO SEF IF A SCROLL 

1002 ! IS TAKING PLACE . I F NOT JUMP 

1003 ! TO 'NOSCROLL' OTHERWISE 

1004 ! CHECK TO SEE WHICH OF THE 8 

1005 ! POSSIBLE DIRECTIONS WE ARE 

1006 • SCROLLING IN AND PROCESS . 

1007 ! 

1020 1HTR LDA WAY 
1030 BEQ NOSCROLL 
1040 CMP *1 
1050 DUE Wl 
1060 -ISR YSU8 
1070 JMP NOSCROLL 
1080 Wl CMP *2 
1090 BNE W2 
1100 JSR YADD 
1110 JMP NOSCROLL 
1120 W2 CMP §3 
1130 BNE W3 
1140 JSR XSUB 
1)50 JMP NOSCROLL 
1 160 W3 CMP #4 
1170 BNE W4 

1179 JSR XADD 

1180 JMP NOSCROLL 

1181 W4 CMP #5 

1182 BNE W5 

1183 JSR XADD 

1184 JSR YSUB 

1185 JMP NOSCROLL 

1186 W5 CMP #6 
11B7 BNE W6 

1188 JSR YSUB 

1189 JSR XSUB 

1 190 JMP NOSCROLL 

1191 W6 CMP *7 

1192 BNE W7 

1 193 J5R YADD 

1194 JSR XADD 

1 195 JMP NOSCROLL 

1 196 W7 CMP 18 
119? BNE NOSCROLL 

1198 JSR YADD 

1199 JSR XSUB 

1200 ! 

1210 ! SET UP LOCATION OF RASTER 

1211 ! SPLIT AND RE- VECTOR THE 

1212 ! I NTERUPT TO PROCESS THE 

1213 ! STATUS LINE (1(011 MOVING 

1214 ! SCREEN) ROUTINE. 

1215 ! 

1240 NOSCROLL LDA #<STATLINE 

1250 STA 768 

1260 LDA »>STATLINE 

1270 STA 709 

1280 LDA RASTER 

1290 STA 53266 

1300 JMP EXINT 

1301 ! 

1302 I SET 40 COLUMN SCREEN. 

1303 ! CLEAR SCROLL REG I STEWS TO 

1304 ! ENSURE THIS SECTION OF THE 

1305 ! SCREEN IS STI LL. RE -VECTOR 

1306 ! THE I N I ERUPT TO PROCESS THE 

1307 ! ROUTINE DEALING WITH THE 

1308 ! -SCROLLING SECTION OF THE 

1309 ! SCREEN. JSR TO ' CONTROL ' ROUTINE 

1310 ! 

1315 STATLINE LDA #6 
1320 STA 53270 
1330 LDA #23 
1340 STA 53265 
1350 LDA 154 
1360 STA 53272 
1370 LDA #<GAMEAREA 
1380 STA 788 
1390 LDA #>GAMEAREA 
1400 STA 789 

1405 LDA #7 

1406 STA 53280 
1410 JSR CONTROL 

1415 LDA «0 

1416 STA 532B0 
1420 LOA t252 
1430 STA 53266 

1440 JMP EXINT 

1441 ■ 

1442 ! SET 38 COLUMN. 24 ROW SCREEN 

1443 I PRINT UP SCREEN FROM 



1444 i MAP 6 MAP* I .SET VALUES OF 

1445 I SCROLL REGISTERS 

1446 ! 

1450 GAMEAREA LDA 53270 

1455 AND tO 

1456 ORA 016 
14?0 ORA XSCROLL 
1480 STA 53270 
1490 LDA 53265 
1500 AND #240 
1510 ORA YSCROLL 
1520 STA 53265 
1610 LDA #36 
1620 STA 53272 

1625 LDA 16 

1626 STA 33280 

1650 JSR WINDOW 

1651 LDA #0 

1652 STA 53260 

1654 JMP INTR 

1655 ! 

1656 ! SIGNAL THAT 1NIERUPT HAS BEEN 

1657 ! PROCESSED , RESTORE REGISTERS 

1658 ! AND RETURN FROM I NTERUPT . 

1659 ! 

1600 EXINT LDA #1 

1670 STA $0019 

1690 PLA 

1700 TAY 

1710 PLA 

1720 TAX 

1730 PLA 

1740 RTI 

1741 ! 

1742 ! HARDWARE SCROLL SCREEN 1 PIXEL 

1743 ! TO THE RIGHT IF SCREEN HAS 

1744 ! MOVED MORE THAN 1 CHAR. THEN 

1745 ! SUBTRACT 1 FROM 16 BIT VALUE IN 

1746 ! MAP 6 MAP*1 . 

1747 ! 

1750 XADD LDA 53270 

1760 ORA #240 

1770 CLC 

1780 ADC XSPEED 

1790 AND #7 

1600 STA XSCROLL 

1810 8CC EXXADD 

1B20 SEC 

1830 LDA MAP 

1040 SBC #1 

1050 STA MAP 

I860 LDA HAP+1 

1870 SBC #0 

1880 STA MAP*1 

1960 EXXADD RTS 

1961 ! 

1962 ! HARDWARE SCROLL SCREEN 1 PIXEL 

1963 ! TO THE LEFT. IF SCREEN HAS 
)964 ! MOVED MOPE THAN 1 CHAR. THEN 

1965 ! ADD I TO 16 6IT VALUE 

1966 ! IN MAP S MAP»1 . 

1967 ! 

1970 XSUB LDA 53270 

1980 AND #7 

1990 SEC 

2000 SDC XSPEED 

2010 AND #7 

2020 STA XSCROLL 

2030 BCS EXXSUB 

2040 CLC 

2050 LDA MAP 

2060 ADC #1 

2070 STA HAP 

2080 LDA HAP'l 

2090 ADC #0 

2100 STA MAP»1 

2180 EXXSUB RTS 

2181 ! 

2162 • HARDWARE SCROLL THE SCREEN 

2163 ! DOWN 1 PIXEL. IF SCREEN HAS 
2184 ! MOVED MORE THAN 1 CHAR THEN 
2105 ! SUBTRACT NUMBER OF SCREENS 
2)86 ! HORIZONTALLY IN MAP MULTI PLYED 
218? ! BY 40 FROM 16 BIT VALUE IN 
2186 ! MAP & MAP*1 . 

2189 ! EG ! - 

2190 ! IF THERE ARE 6 SCREEN ACROSS 

2191 ! IN MAP THEN SUBTRACT 240. 

2192 ! 

2199 YADD LDA 53265 

2200 ORA #248 
2210 CLC 

2220 ADC YSPEED 
2230 AND #7 
2240 STA YSCROLL 
2250 BCC EXYADD 
2260 SEC 
2270 LDA MAP 



2280 SBC #240 
2290 STA HAP 
2300 LDA MAP»1 
2310 SBC #0 
2320 STA HAP-1 

2400 EXYADD RTS 

2401 ! 

2402 ! AS ABOVE BUT SCROLL UP 1 PIXEL 

2403 ! AND ADD SAME VALUE IF 

2404 ! NECESSARY. 

2405 ! 

2410 YSUB LDA 53265 



2420 


AND 


#7 


2430 


SEC 




2440 


SDC 


YSPEED 


2450 


AND 


• 7 


2460 


STA 


YSCROLL 


2470 


BCS 


EXYSU8 


2480 


CLC 




2490 


LDA 


MAP 


2500 


ADC 


#240 


2510 
2520 


STA 
LDA 


Mf.P 
MAP«1 


2530 


ADC 


#0 


2540 


STA 


MAP*1 


2620 


EX YSUB RTS 


4000 







4001 ! (SEE DIAGRAM 11:- 

4002 ! PRINT UP 1000 BYTES TO SCREEN. 

4003 ! 1 SCREEN IS AT 17408). 

4004 ! STARTING AT MEMORY LOCATION 

4005 ! POINTED AT BY VALUES IN 

4006 ! MAP £ MAPH. 
400? ! 

4070 WINDOW LDA #< 10432 

4080 STA 253 

4090 LDA #>10432 

4100 STA 254 

4120 LDA HAP 

4130 STA 251 

4140 LDA MAPH 

4150 STA 252 

4160 LD.X #18 

4180 WINDI.00P1 LDY #0 

4190 W I NDL00P2 LDA (2511 ,Y 

4200 STA (253) ,Y 

4210 INY 

4215 CPY #40 

4220 BNE Wl NDL00P2 

4230 LDA 251 

4240 CLC 

4250 ADC #240 

4260 STA 251 

4270 BCC WIND LP 2 

4290 INC 252 

4300 WINDLP2 LDA 253 

4310 CLC 

4320 ADC #40 

4330' STA 253 

4340 BCC EXCAL 

4360 INC 254 

4370 EXCAL DEX 

4376 IlHE W1NDL00P1 

4390 RTS 

4400 ! 

4410 ! VARIABLES AS FOLLOWS 

4411 • 

4412 ! 1 - LO.HI ADDRESS OF SCREEN 

4413 ! (ROW 0. COLUMN 0) IN OVERALL MAP 

4414 ! 2 - POSISTION OF RASTER SPLIT 

4415 ! 3 - SPEED OF X SCROLL 

4416 I 4 - SPEED OF Y SCROLL 

4417 ! 5 - VALUE OF X SCROLL REGISTER 

4418 ! 6 - VALUE OF Y SCROLL REGISTER 

4419 ! ? - JOYSTICK X VALUE 

4420 ! 8 - JOYSTICK Y VALUE 

4421 ! 9 - DIRECTION OF SCROLL (0-6) 

4422 ! 

6000 MAP BYT <32768. >32766 

6030 RASTER BYT 189 

6060 XSPEED BYT 1 

6070 YSPEED BYT 1 

6080 XSCROLL BYT 0 

6090 YSCROLL BYT 0 

6100 DX BYT 0 

6110 DY BYT 0 

6160 WAY BYT 0 

6161 ! 

6162 ! THE VALUES IN WAY INDICATE 

6163 ! THE FOLLW I NG ; - 



6164 


i 






6165 


! 0 


- NO SCROLLING 


6166 


! 1 


- SCROLL 


UP 


6167 


! 2 


- SCROLL 


DOWN 


616B 


! 3 


- SCROLL 


LEFT 


6169 


! 4 


- SCROLL 


RIGHT 


6170 


! 5 


- SCROLL 


UP & RIGHT 


6171 


! 6 


- SCROLL 


UP & LEFT 
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7 - SCROLL DOWM & RIGHT 

8 - SCROLL DOWN & LEFT 



JOYSTICK READING ROUTINE. 
SEE PAGE 315 OF PROGRAMMERS 
REFERENCE GUIDE FOR FULL 
EXPLANATION. 



6172 
6173 
6174 
6179 
6160 
6181 
6182 
6183 
616-1 

7000 JOYREAD LDA 36320 

7010 LDY #0 

7020 UJX «0 

7025 ! 

7030 LSR A 

7040 BCS JOYO 

7050 DEY 

7060 JOYO LSR A 

7070 BCS JOY1 

7080 IHY 

7090 JOY1 LSR A 

7100 BCS JOY2 
7110 DEX 
7120 JOY2 LSR A 
7130 BCS JOY3 
7140 I NX 
7130 JOY 3 LSR A 
7160 STX DX 
7170 STY DY 
7180 RTS 

7190 ! 

7191 ! MAIN CONTROL ROUTINE I- 

7192 ! DECIDE WHICH DIRECTION TO 

7193 ! SCROLL. 
719-1 ! 

8000 CONTROL JSR JOYREAD 
8010 1DX DX 
8020 LDY DY 
0021 TXA 

B022 BNE VERTICAL 
6023 TYA 

B024 BNE VERTICAL 
6025 STA WAY 
0026 RTS 

0030 VERTICAL CPX *0 
8040 ONE HORIZONTAL 
0050 UPC CPY »25'; 
8060 BNE DOWHC 
6070 LDA *2 
B060 STA WAY 
8090 RTS 

8100 DOWNC CPY #1 

8110 BNE XVERT 

8120 LDA «1 

8130 STA WAY 

6140 XVERT RTS 

6150 HORIZONTAL CPY »0 

B160 BNE DIAGONAL 

8170 LEFTC CPX #255 

8180 BNE R1GHTC 

6190 LDA *4 

6200 STA WAY 

8210 RTS 

8220 RIGINC CPX «1 
6230 BNE OUTCON 
6240 LDA 13 
0250 STA WAY 
8260 OUTCON RTS 
8270 DIAGONAL CPY «255 
8280 BNE DIAGDOWN 
8290 CPX «1 
6300 BNE UPLFT 
8310 UPRGHT LDA #6 
8320 STA WAY 
8330 RTS 

8340 UPLFT CPX #253 
8350 BNE OUTCON 
6360 LDA #7 
8370 STA WAY 
6360 RTS 

6390 DIAGDOWN CPY «1 
8400 BNE XDIAG 
8410 CPX *l 
8420 BNE DWHLFT 
8440 DWNRCHT LDA 16 
6450 STA WAY 
6460 RTS 

8470 DWHLFT CPX *255 
8400 BNE XDIAG 
8490 LDA «5 
0500 STA WAY 
8510 XDIAG RTS 




BYTING INTO TIIK65I0 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 



ORG 49152 

SCREENMEM EQU 251 
SCREENCOL EQU 253 



GETIN 



EQU $FFE4 



; INITIATE SCREEN AND COLOUR VARS 

LDA #<1024 
STA < SCREENMEM 
LDA #>1024 
STA > SCREENMEM 

■ 

LDA #<55296 
STA < SCREENCOL 
LDA #>55296 
STA > SCREENCOL 

; CLEAR THE SCREEN. 

JSR $E544 

■ 

; SWITCH COMPUTER INTO 
; BUSINESS MODE. 



LDA #14 
JSR $E716 

WAIT FOR KEYPRESS. 



GETKEY 



JSR GETIN 
BEQ GETKEY 



IF Fl PRESSED, EXIT. 

CMP #133 
BEQ EXIT 

IF DELETE KEY HAS BEEN PRESSED, 
JUMP TO DELETION ROUTINE. 

CMP #20 
BEQ DELETE 

CONVERT ASCII INTO SCREEN CODE. 



SKIP 



CMP #128 
BCC SKIP 
SEC 

SBC #64 
CMP #64 
BCC PRINT 
SEC 



; UPPER CASE 
; LOWER CASE 
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560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 



SBC #64 
PRINT CHARACTER ONTO SCREEN . 



PRINT LDY ttO 

STA ( SCREENMEM) , Y 
LDA «6 

STA ( SCREENCOL ) , Y 



ADVANCE TO NEXT PRINT POSITION 

INC < SCREENMEM 
BNE NOHIGH 
INC > SCREENMEM 



NOHIGH 



INC < SCREENCOL 
BNE GETKEY 
INC >SCREENC0L 
BNE GETKEY 



DELETION RQUTINE: 
IF BEG. OF SCREEN, EXIT 
DELETE 



LDA tt<1024 
CMP < SCREENMEM 
BNE DELETE 1 



850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 



. LDA W>1024 
CMP > SCREENMEM 
BEQ GETKEY 

GO ONE POSITION BACKWARDS 



DELETE 1 LDA < SCREENMEM 

BNE NOHIGH 1 

DEC > SCREENMEM 
NOHIGH 1 DEC < SCREENMEM 

LDA < SCREENCOL 
BNE N0HIGH2 
DEC > SCREENCOL 
N0HIGH2 DEC <SCREENCOL 

AND PRINT SPACE OVER LETTER. 

LDY ttO 

LDA **32 ; SPACE 

STA (SCREENMEM) , Y 

LDA tt6 ; BLUE 

STA ( SCREENCOL) ,Y 

JMP GETKEY 

•EXIT: RETURN TO BASIC 

EXIT RTS 



PROGRAM: BUD HON CREATE 



D3 10 REM CREATE BUDGET SUBJECT 
S 

B3 2Q DinCHS(20),NB(20?,NCCaO) 
59 30 0PEN2 ,8,5, "00 : BUDGET SUBJ 

ECTS.S.liT 
68 40 F0RA-1T016 

FB 50 CHSCA)-" ":NBCA)-0:NCC0J- 
0 

9F GO NEXT A 

BS 70 FORA-1T01G 

B7 80 PRINTM2.CHSC A) 

F6 90 PRlNT#e,NBi:A> 

A3 100 PRINTM2 , NCC A) 

4D 110 NEXT A 

OA 180 CL05E2 



PROGRAM: BUD SUB CREATE 



98 10 DIM MSC20) 

39 20 DPEN2, 8,2, "GO: BUDGET MONT 

H5,9,dJ" 
AA 30 FORA-1 TO 12 
EG 40 READ MICA) 
DO 50 MS(A)-"[5SPC3"+MSCA) 
F3 50 PRINTM2,MS(AJ 
AS 70 NEXT A 
22 80 CL0SE2 

F3 90 DATA JAN . FEB , MAR , APR , MAY . 
JUN , JUL, AUG , SEP , OCT , NOV , DEC 



PROGRAM: BUD DATA CREATE 



IF 2 DIM YS(192),H$C192) 

DF 4 DIM SRSClGJ.SSSClGJ.SUStlG 

) 

FE 6 DIM BASC16),BBSC16>,BCSC16 

) 

61 8 DIM GTt3) 

A4 10 REM PROG TO SET UP BUDGET 
DATA 



09 20 FOR A-l TO 192 

4F 30 YECA)-"CSSPC3000":HICA)-" 

ooo- 

8B 40 NEXT A 

32 50 F0RA-1TD16 

ED 60 5RS(A)-"ISSPC:0000":S5S(A 
)-"CS5PC]0000":SUSCA)-"CSSPC 
30000" 

08 70 BASCA)-"CSSPC10000":BBSCA 
D-"CSSPCDOOOO":BCSCA)-"CSSPC 
30000 " 

83 80 NEXT A 

A4 90 ETC 1 )-0; GTC2J-0: GTC3J-0 
OE 100 0PEN2 ,8,2, "t»0 : BUDGET DAT 

A.s.M- 
as HO PRINTM2.SR 
CC 120 PRINTMS.Cri 
B7 130 FORA-1 TO 192 
77 140 PRINTB2, YSCA) 
7S ISO NEXT A 
7D 150 FOR A-l TO 192 
CS 170 PRINTM2.HICA) 
17 180 NEXT A 
26 190 FOR A-l TO 12 
89 200 PRINTM2,5RSCA) 
54 210 PRINTH2,SSSCA> 
SC 220 PRINTM2.SUSCA) 
C5 230 NEXT A 
DE 240 FOR A- 1 TO 1G 
11 250 PRINTM2.BASCA) 
CD 260 PRINTH2, BBS(A) 
CB 270 PRINTW2.BCSCA) 
FA 280 NEXT A 
DE 290 PR I NT»2 , GT ( 1 ) 
85 300 PRINTM2.GTC2) 

84 310 PRINT#2.GTC3> 
13 320 CL05E2 



PROGRAM: BUDGET CALC 



El 100 REM *************** ****** 
*********** 

4E 110 REM * BUDGET CALC BY S 

.PHILLIPS ■ 
ED 120 REM ******************** 

****** ***** 

19 130 POKE808.239:REM DISABLES 
RUN/ STOP 

OA 140 IFLO-1THENGOSUB2920:GOSU 

B2640:GOT0590 
C4 150 POKE53280.9:POKE53281.9: 
*P0KE646,7 : PRINTCHR$(142) :GOS 

UB160:GOSUB180:GOT0190 
91 160 PRINT" [CLR.SPC4 IB U D G 

E TISPC41P R O G R A M M E": 

PE-1 

BF 170 PRINT" (RIGIIT4 . SE11 . RIGHT 

4.SE17J": RETURN 
5D 180 PRINT"|D0WN.RIGHT6]WRITT 

EN BY: ISPC3) SIMON PHILLIPS": 

RETURN 

B4 190 PRINT" [D0WN4 . R1GHT6 1 PLEA 

SE KEY IN PRESENT MONTH" 
13 200 PRINT" I DOWN . R I GHT9 ) MONTH 

: icei ic@i fcer 

4F 210 QT-16:QU$-"-:ANS-"":FT-0 

:OP-0:PE$-"ACTDAL" 
63 220 GETQUS: I FQU$=" "THEN220 
E7 230 PRINT" [UP) "TAB IOT)QU$ 
C4 240 AN$-AN$*QU$:QT-QTt2:FT-F 

T+li I FFT-3THEN260 
C7 250 GOT0220 
3D 260 IFAN$-"JAN"THEN0P-1 
38 270 IFAN$*"FEB"THEN0P-2 
C8 280 IFAN$-"MAR"THEN0P-3 
BA 290 lFAN$-"APR"THEN0P-4 
B7 300 IFAN$-"MAY"THEN0P-5 
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EC 310 IFAN$-"JUN"THEN0P-6 
CI 320 lFANS-"JUL"THEN0P-7 
7E 330 !FANS-"AUG"THEN0P=8 
7E 340 IFAN$-"SEP"THEN0P-9 
AE 350 IFAN$-"OCT"THENQP=10 
3C 360 IFAN$-"NOV"THENOP-ll 
90 370 I FAN$""DEC"THENOP-12 

41 380 IFOP-0OROP-13THENANS-"": 
QT-16:FT-0 ; PRINT"[UP3|" :G0T0 
200 

BF 390 PRINT" (DOWN4, RIGHT J PRESS 
(RVSON) SPACE BAR [RVSOFF] 
TO COMMENCE LOADING" :MZ$=AN$ 

50 400 GETAS: IFAS-" "THEN420 
A6 410 GOTO400 

23 420 PRINT"(CLR,D0WN12.RIGHT9 
I LOAD 1 NG BUDGET DATA " 

89 430 OPEN2 ,8,2. "0 : BUDGET DATA 
,S,R": INPUT#2,SR: INPUT#2.CM: 
AM-0 

CO 440 DIMH(200) ,H$f200) ,Y(200) 
,YS(200) ,HM(20) .HM$(201 .YM(2 

0) ,YM$(201 .HS125) 

81 450 DIMHS$(25) ,YS(25) .YSSI25 
) ,V(200) 

42 460 DIMM$(20) ,M(20) ,S$(20) ,S 
(20) ,F$(200) ,F(200) ,FZ(200) , 
FZK200) ,SR$(20) ,SS${20) 

E9 470 DIMSU$(20) ,SR{20) ,SS(20) 
,SU(20) ,BAS(30) .BBS (30) . BC$ < 
30) .BAOO) .BBOO) ,J$(30) 

C6 480 DIMBCOO) ,ST$<20) ,MT$(20 
) ,MT(20) ,ST(20) ,NB(20) ,NC(20 
) ,GT(10) .R(99> :F0RA-1T0192 

78 490 INPUT#2.Y$(A) :Y$-MID$(YS 
(A) .2) :Y(A)-VAL(Y$) : NEXTA 

BF 500 FORA-1T0192: INPUT#2.H$(A 
) :H$-MID$(HS<A) ,2) :H(A)-VAL( 
H$) :NEXTA:GOSUB2920:GOSUB264 
0 

E9 510 FORB-1T012: I NPUT#2 . SR$ ( B 
) :SR$-MID$(SRS(B) .2) :SR(B)=V 
ALISRS) 

16 520 INPUT*2.SSS<B) :SSS-MIDS( 

SSJ(B) ,2) :SS(B)-VAL(SS$) 
E2 530 INPUT*2.SU$(B) :SU$-MID$( 

SU$<B) ,2) :SU(B)-VAL(SU$) 
F2 540 NEXTB:F0RC-1T016 
26 550 INPUT#2,BA$(C) :BA$-MID$( 

BA$(C) .2) :BA(C)=VAL(BA$) 
E3 560 INPUT#2.BBS(C) :BB$-MIDS( 

BBS f C) ,2) :BB(C)-VAL(BB$) 
60 570 INPUT#2.BC$(C) :BC$-MID$( 

BC$(C) ,2) :BC(C) -VAL(BCS) 
39 580 NEXTC : I NPUT#2 , GT ( 1 ) : I NPU 

T#2,GT(2) : INPUT#2 ,GT ( 3) ;CLOS 

E2 

58 590 SM$-"SUB I SMI MONTH I R I GH 

TJ " : ST$- " SUBT" : MTS- "MONTHLY 

TOT I R I GHT 1 ":MI-12 
OC 600 0PEN3,8.3."0:BUDGET SUBJ 

ECTS.S.R" 
2E 610 FORFI-1T016 
AD 620 INPUTi3.J$)FI) :S$(FI)-MI 

DS(JSIFI) .l.HI) : INPUT*3,NB(F 

1) : 1NPUT#3.NC(FI ) 
09 630 NEXTFI 

55 640 CLOSE 3 

E5 650 GOSUB660:GOTO720 

D7 660 FORGH-1T0192 

83 670 IFYS(GH) -" [RIGHT! 000"THE 

NYS (GH) -" (RIGHT) " 

E2 680 F$(GH)=Y$(GH) :F(GH)-Y(GH 

) 

35 690 NEXTGH 

81 700 F0RGH-1T016:ST$(GH)-YS$( 
GH) :ST(GH)-YS(GH) : NEXTGH 

5F 710 FORGH-1T012:MT$(GH)-YMS( 
GH) :MT(GH) *YM(GH) : NEXTGH : RET 
URN 

4E 720 OPEN4.8.4, "0: BUDGET MONT 
HS.S.R" 



31 730 FORZZ-1T012: INPUT#4,MJ(Z 

Zl :NEXTZZ:CL0SE4 
IB 740 I FANS-MI D$ (MS ( 1) ,2,3) AND 

LO-OTHENCM-CM+1 :SR-1 : GOTO320 

0 

AB 750 LA$-"":LB$-" ":LC$-" ": 
LDS-" " :LE$-"|SPC41 " 

BA 760 LFS-"[CT39| ": LK$=" [RIGHT 
1 ":PES-" ACTUAL " 

FO 770 GOSUB830:GOSUB780:GOTO82 
0 

F6 780 PRINT" (HOME] " : 

.5E 790 FORTY- 1T019 : PRINT" [SPC39 

I " : NEXTTY 
AD 800 RETURN 
IB 810 GOSUB830 
FO 820 GOTO860 

ED 830 PA$(l)-"(RIGHT2,SO,CY6,S 
P , RVSON , SO . CY4 . SP , RVSOFF , SO . 
CY5,SP.S0,CY3.SP.S0.CYS.SP| " 



DA 



28 



62 
5D 
CI 
EB 
29 



BB 



82 



2B 
6D 
83 
OB 



65 

6D 
E9 

F5 



24 
CF 



50 



BA 

92 



CE 
B8 



E2 
5A 



68 
40 
B6 
02 



C3 



840 PA$(2)-"[RIGHT2.CH)REVIE 
W [CM, RVSON , CG J MOVE I CM , RVSOFF 
.CG]AMEND[CM.CG)END[CM,CG1"+ 
PES+ " ICM] " 

850 PAS<3)-"(RIGHT2.SL.CP6,S 

@ , RVSON . SL , CP4 , S@ , RVSOFF . SL , 

CP5 , S<9 , SL . CP3 . S© , SL , CP8 . S@ ] " 

: RETURN 

860 GOSUB880 

870 GOTO940 

880 PRINT" [CLR] " 

890 PRINT" [HOME, DOWN20] " 

900 PR1NT"[RIGHT2,S0.CY6.SP, 

RVSON , SO , CY4 , SP , RVSOFF , SO , CY 

5,SP,SO,CY3,SP,SO.CY8.SP] " 

910 PR I NT" [ R I GHT2 . CH ) REV I EW [ 

CM , RVSON , CG 1 MOVE ( CM . RVSOFF , C 

G]AMEND[CM.CG)END(CM.CG)"4PE 

$+"(CM] " 

920 PRINT"[RIGHT2.SL.CP6,Sia. 

RVSON . SL . CP4 , S@ . RVSOFF , SL, CP 

5 . SO , SL , CP3 , S@ , SL. CPS , S@ | " 

930 RETURN 

940 PRINT" (HOME] " 

950 G0SUB780 

960 DI-2:S-1:-F-1:U-1:MM:MT- 
1 : FF-F : SS-S : UU-U i MM-M : MU-MT : 
GOTO 1260 

970 F-FF:S-SS:U-UU:M-MM:MT-M 
U 

980 SW-1 :DI-2 

990 AZ$-"|RIGHT12]":AX$-"(RI 
GHT4 J " 

1000 DI-2:PRINT"[HOME] ";AZ$; 
LB$;MS(M) ;LA$;M$(M*1) :LAS;MS 
(M+2) ;LA$;MS(M«3) ;LCS;AX$ 
1010 PRINT" [DOWN] " ; LF$ 
1020 PRINT" [DOWN] ";AZS: LBS; F 
$(F) ;LBS;F$(F+1) ;LB$;F$(F+2) 
;LBS:F$(F+3) ;LC$;AX$ 
1030 PRINT' , [DOWN2]";AZS;LB$: 
F$(F+12) ;LBJ;F$(F+13) ;LBS;FS 
(F414) ;LB$;F$(F+15) : LC$ ; 
1040 PRINTAXS 

1050 PR I NT" [DOWN2 J " ; AZS : LBS ; 
FS(F+24) ;LBS;F$(F+25) ;LB$;F$ 
(F*26) ;LB$;FS(F+27) :LC$; 
1060 PRINTAXS 

1070 PRINT" [DOWN2]"; AZS; LBS; 
F$(F*36) ;LBS;F$(F»37) ;LB$;F$ 
(F+38) ;LBS:F$(F+39) ; LCS ; 
1080 PRINTAXS 

1090 PRINT"[D0WN3i";AZS;LAS; 
MTS(MT) ;LA$;MT$(MT*1) ; LAS ; MT 
$(MT*2) ;LA$;MTS(MT+3) :LD$; 
1100 PRINTGTS 
1110 GOTO1390 
1120 SW-l:DI-2 
1130 ACS-"[RIGHT5] ":AV$-"(RI 
GHT5 ) " : ABS-" I SPC1 2 ] " : ASS- " [L 
EFT12] " 

1140 DI-2:PRINT"[HOM£|" 



AB 1150 PRINT" [DOWN] ";LF$ 
83 1160 PRINT" [DOWN] " ; AB$ ; ASS ; S 
SIS) ;LBS:FS(F( ;LBS;F$lFU> ;L 
BS;F$(F+2) ;LB$;F$(F+3) ;LC$;S 
T$(U) 

OC 1170 PRINT" [DOWN2] " ; ABS ; ASS ; 
SS(S+1) ;LB$;F$(F+12) ;LBS;F$( 
F+13) ;LBS;FS (F*14) :LB$;F$(F+ 
15) : 

C5 1180 PRINTLC$;ST$(U*1) 
BD 1190 PRINT"[DOWN2)";AB$;ASS; 
SS(S+2) ;LB$;FS(F*24) ;LB$;F$( 
F4-25) ;LB$;FS(F + 26) ;LB$;FS(F* 

27) ; 

70 1200 PRINTLCS;STS(U+2) 
9A 1210 PRINT" [DOWN2 ) " ; ABS ; ASS ; 
S$(S*3) ;LBS;F$(F+36) ; LBS : FS ( 
F+37) ;LB$;F$(F+38) ;LBS;FS(F+ 
39) ; 

9F 1220 PRINTLCS;ST$(U+3) 

58 1230 PRINT"IDOWN3)":AZ$;LA$; 

ACS ; LAS ; ACS ; LAS ; ACS ; LAS ; ACS ; 

LDS ; 

FC 1240 PRINTGTS 
FC 1250 GOTO1390 

2C 1260 F-FF:S-SS:U-UU:M-MM:MT- 
MU 

52 1270 SW-1 :DI-2:GOSUB780 
48 1280 DI-2:PRINT"(H0ME]";SM$: 
LBS;M$(M) ;LA$;M$(M*1) ;LAS;M$ 
(M*2) ;LA$;M$(M*3) ;LC$;ST$ 
9E 1290 PRINT"[DOWN]";LFS 
03 1300 PRINT" [DOWN] ";S$(S) : LBS 
;FS(F) :LB$;F$(F+1) ;LB$;FS(F* 
2) ;LBS;FS(F+3) ;LCS;ST$(U) 

06 1310 PRINT"(DOWN2|":SS(S4l); 
LBS;F$(F*12) : LBS ; F$ (F+13) ; LB 
S;F$(F*14) ;LB$;F$(F+15) ; LCS ; 

66 1320 PRINTST$(U+1) 

C7 1330 PRINT" [DOWN2 ] " ;SS (S+2) ; 
LB$;F$(F*24) :LB$;F$(F+25) ; LB 
S;F$(F+26) ;LB$;FS(F+27) ; LCS ; 

55 1340 PRINTSTS(U*-2] 

BC 1350 PRINT" [DOWN2] " ;S$(S+3) ; 
LBS;FS(F+36) ; LBS ;F$ (F+37) ;LB 
S;FS(F+38) ; LBS ;F$ (F+39) ;LC$; 

40 1360 PRINTST$(U+3) 

65 1370 PRINT" [DOWN3] ";MTS;LA$; 
MTS (MT) ;LA$;MT$(MT+1) :LA$;MT 
$(MT+2| ;LAS:MT$(MT+3) ;LDS: 

87 1380 PRINTGTS 

02 1390 SD-NOTPEEK (56320) AND15: 
FO-PEEK ( 56320) AND16 

56 1400 IF(SDAND1)THEN1460 
4C 1410 IF(SDAND2>THEN1500 
10 1420 IF(SDAND4)THEN1540 
B7 1430 IF(SDAND8)TH£N1590 

07 1440 IFFO"0THEN2100 
2A 1450 SD-0:GOTO1390 

E5 1460 IFF-10RF-20RF-30RF-40RF 

"6ORF-7ORF-8THEN1390 
5D 1470 IFF-5THEN1390 
5B 1480 IFF-9THEN1390 

66 1490 F-F-12:S-S-1 :U=U-1 :GOTO 
1120 

B5 1500 IFF-1450RFM460RF-1470R 
F-148ORF=150ORF-151ORF-152TH 
EN1390 

76 1510 IFF-149THEN1390 
E9 1520 IFF-153THEN1390 
9F 1530 F-F+12:S-S+l:U-U*-l:GOTO 
1120 

32 1540 IFF=10RF-130RF-250RF-37 
ORF-61ORF-73ORF-85ORF-109ORF 
-121ORF-133THEN1390 

D2 1550 IFF=49THEN1390 

A9 1560 IFF=97THEN1390 

Bl 1570 IFF-145THEN1390 

80 1580 F-F-l:M-M-l:MT=MT-l:GOT 
O980 
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31 1590 IFF-90RF-220RF=33ORF-45 
ORF-690RF-8 10RF-930RF-1 170RF 
-1290RF-141THEN1390 
05 1600 IFF-57THEN1390 
F5 1610 IFF-105THEN1390 
3A 1620 IFF-153THEN1390 
45 1630 F-F+l:M-M+l:MT-MT+l:GOT 
0980 

CD 1640 CES-"":NU«0:CF-0:CG-0:F 
-FF : PRINT" [ HOME . D0WN4 , R I 6HT1 
0 , RVSON ] "FS ( F> " [ RVSOFF I " : X-0 
:Y-0 

3A 1650 FF-F:SS-S:UU=U:MM-M:MU- 
MT 

31 1660 SD-NOTPEEK (56320) AND15: 
F0=PEEK (56320) AND16 : Yl-Y ; XI- 

X 

6A 1670 IF(SDANDZ)THENY-Y+1 :GOT 
01710 

42 1680 IF (SDAND1 ) THENY-Y-1 :GOT 
01710 

6B 1690 IF(SDAND4)THENX-X-l;GOT 
01710 

D2 1700 IFfSDAND8)THENX-X+l :G0T 
01710 

17 1710 IFY<0THENY=0 
CF 1720 IFY>3THENY-3 
15 1730 IFX<OTHENX-0 
91 1740 IFX>3THENX-3 
6F 1750 IFFO-0THENGOSUB890:G0TO 
1260 

27 1760 IFX< >X1THENGOSUB1990 
E5 1770 IFYOY1THENGOSUB1990 
E2 1780 PRINT" [HOME)": : NU-0 : FOR 

JA*1T0<Y*3) +4:PRINT" (DOWNJ 

: NEXT J A 

AC 1790 PRINTTAB(13HX'5>) : 
B6 1800 IFY>0THENNU-12*Y 
BB 1810 NU-NU+X 

C9 1820 PRINT" (RVSON) " ;F$ (F+NU) 
E9 1830 GETA$ 

E3 1840 FO= PEEK (56320) AND 16 : IFF 

O=0THEN1750 
B4 1850 IFA$-""THEN1890 

27 I860 IFA$-CHR$(13)THEN1910 
42 1870 A-ASC(A$) : IFA>570RA<48T 

HEN1830 
5F 1880 GOTO1910 
3E 1890 IFCF-0THEN1980 
76 1900 GOTO1830 
9C 1910 CG-CG+1:1FCG-4THENCP$«C 

E$ : CE$=" (RIGHT) "+CE$ : GOT0201 

0 

52 1920 CEJ-CE$+A$ 

60 1930 PRINT" (HOME) " : 

28 1940 PRINT" (HOME) ": :F0RJA=1T 
0(Y'3) + 4 : PRINT" (DOWN) " j :NEXT 
JA 

OD 1950 PRINTTAB(14+(X-5)) ;'-(RV 

SON) ";CE$ 
9E 1960 CF-1 :GOTO1830 
03 1970 1FFO-0THEN2100 
3C 1980 SD»O:GOTO1660 
CF 1990 PRINT" I HOME 1 " ; : FORJA-1T 

0(Y1*3)+4:PRINT"[DOWN] :NEX 

TJA 

27 2000 PRINTTABfl3+(Xl'5) ) ;"[R 
VSOFF J " ; F$ ( F+NU) : RETURN 

29 2010 JFAJ-CHR$(13)THENCF=Q:F 
$(F+NU) -CE$:F<F+NU) -VAL(CP$) 
:AM=l:GOTO2030 

ED 2020 GOTO2090 

92 2030 PRINT" (HOME. D0WN19.RIGH 

T13) PLEASE WAIT" 
8A 2040 IFPE=1THENYI(F+NU)-CE$: 

Y(F+NU) -VAL(CP$) 
82 2050 I FPE a OTHENHI (F+NU) =CE$ : 

HIF+NU) -VAL(CP$) 
B3 2060 IFPE-1THENGOSUB2640:GOS 

UB660:GOTO2080 

30 2070 IFPE-0THENGOSUB2920:GOS 
UB3590:GOTO2080 



27 2080 GOSUB830:GOSUB880:GOT01 
260 

D8 2090 CG=0:CE$-"" :GOT01930 
6E 2100 FF-F : SS-S : UU-U : MM-M : MU- 
MT 

5B 2110 FO-PEEK (56320) AND16 : IFF 

0=0THEN2110 
62 2120 F-16 ; SD-NOTPEEK (56320) A 

ND15 :F0-PEEK (56320) AND16 
80 2130 IF(SDAND1)THEN2110 
97 2140 IF(SDAND2)THEN2110 
3C 2150 IF(SDAND4)THENDI-DI-1:G 

OTO2190 

B7 2160 I F ( SD ANDS ) THEND I -D I + 1 ; G 

OTO2190 
93 2170 IFF0-0THEN2530 
05 2180 SD-0:GOT02120 
E9 2190 IFDI-0THENDI=5:GOTO2210 

D9 2200 IFDI-6THENDI-1 

F7 2210 ONDIGOTO2230. 2290.2350. 

2410. 2470 
AO 2220 GOTO2120 
BC 2230 PRINT" ( HOME. D0WN20]" 
3A 2240 PRINT" (RIGHT2 . RVSON. SO, 
CY6 . SP . RVSOFF . SO. CY4 . SP . SO, C 
Y5 , SP . SO , CY3 , SP , SO . CY8 , SPJ" 
FA 2250 PRINT ,, [RIGHT2.RVSON.CH) 
REV 1 EW ( CM , RVSOFF . CG } MOVE [ CM . 
CG ) AMEND (CM. CGI END (CM. CGI ";P 
ES ; " (CM) " 
5F 2260 PRINT" (R1GHT2, RVSON, SL, 
CP6 , S@ . RVSOFF . SL . CP4 . S@ . SL . C 
P5,S@,SL.CP3,S«l.SL.CP8,S@)" 
5D 2270 FORDZ-1T0100:NEXTDZ 
FC 2280 GOT02120 
F8 2290 PRINT" (HOME. D0WN20] " 
76 2300 PRINT'*[RIGHT2.SO.CY6.SP 
, RVSON . SO . CY4 , SP . RVSOFF . SO . C 
Y5 , SP, SO. CY3. SP . SO . CY8 . SP) " 
90 2310 PRINT" (RIGHT2.CH) REVIEW 
I CM , RVSON . CG ) MOVE ( CM . RVSOFF . 
CG ) AMEND I CM , CG 1 END ( CM , CG 1 " : P 
E$;"fCN|" 
5C 2320 PRINT"(RIGHT2.SL,CP6.S@ 
. RVSON . SL . CP4 , S@ , RVSOFF . SL, C 
P5.S@.SL.CP3.S@,SL.CP8.S@] " 
OS 2330 FORDZ-1T0100:NEXTDZ 
29 2340 GOTO2120 
79 2350 PRINT" [HOME. DOWN20I" 
27 2360 PRINT"|RIGHT2.S0.CY6.SP 
. SO . CY4 . SP . RVSON , SO, CY5 , SP, R 
VSOFF . SO . CY3 , SP . SO . CY8 , SP ) " 
FE 2370 PRINT"(RIGHT2,CH)REVIEW 
[ CM . CG ! MOVE [ CM . RVSON . CG ) AMEN 
D I CM . RVSOFF . CG I END (CM.CGJ " :P 
B$;"[CN]" 
AO 2380 PRINT"!RIGHT2.SL.CP6.S@ 
. SL , CP4 . S@ . RVSON . SL . CP5 . S@ . R 
VSOFF . SL . CP3 , S@ , SL , CPS , S@ ) " 
D4 2390 FORDZ-1T0100:NEXTDZ 
65 2400 GOTO2120 
95 2410 PRINT" (HOME. DOWN20)" 
71 2420 PRINT"(RIGHT2.SO.CY6.SP 
, SO , CY4 . SP . SO, CY5 . SP . RVSON . S 
0 . CY3 . SP . RVSOFF . SO . CY8 . SP I " 
BE 2430 PRINT"(RIGHT2.CH)REV1EW 
(CM. CG) MOVE (CM. CG) AMEND (CM. R 
VSON . CG ) END ( CM . RVSOFF , CG J " ; P 
E$:"[CN1" 
10 2440 PRINT"(RIGHT2,SL.CP6,S@ 
, SL . CP4 . S& . SL , CPS , S@ . RVSON . S 
L . CP3 , S@ . RVSOFF . SL . CP8 , S© ] " 
20 2450 FORDZ-1T0100:NEXTDZ 
91 2460 GOTO2120 
81 2470 PRINT" [HOME. DOWN20 I " 
OD 2480 PRINT"(RIGHT2.SO.CY6.SP 
. SO , CY4 , SP . SO . CY5 . SP . SO , CY3 , 
SP . RVSON . SO . CY8 . SP . RVSOFF I " 
DA 2490 PRINT"(RIGHT2,CH]REVIEW 
I CM . CG ) MOVE I CM , CG ) AMEND [CM, C 
G ) END [ CM , RVSON . CG ) " ; PES ; " [ CN 
, RVSOFF ) " 



DB 2500 PRINT"[RIGHT2.SL.CP6.S<? 

. SL , CP4 , S@ . SL . CP5 . S@ , SL . CP3 . 

S@ , RVSON . SL , CP8 , S£ , RVSOFF ) " 
6C 2510 FORDZ-1T0100:NEXTDZ 
ED 2520 GOTO2120 
A9 2530 PRINT" (HOME) " 
78 2540 ONDIG0TO3480. 2600. 1640. 

3470.3500 
7F 2550 END 

13 2560 GOSUB2640:DI-2:GOTO2350 

FE 2570 PRINT" |R1GHT2,CH)REVIEW 
f CM . RVSON . CG ) MOVE [ CM . RV SOFF , 
CG ) AMEND I CM . CG ) END ( CM . CG ) " ; P 
E$ ; "|CM) " 

03 2580 PRINT" [RIGHT2. SL.CP6.S& 
, RVSON , SL . CP4 , S© , RVSOFF . SL , C 
P5.S@.SL.CP3.S@.SL.CP8.S@] " 

28 2590 GOTO2630 

7A 2600 PRINT" (CLR) " : PRINT" [HOM 
E.DOWN20]" 

FE 2610 PRINT" IRIGHT2. SO. CY6.SP 
, RVSON . SO . CY4 , SP . RVSOFF , SO , C 
Y5 . SP , SO . CY3 . SP , SO . CY8 . SP ] " 

5B 2620 GOTO2570 

5E 2630 G0TO1260 

AO 2640 FORER-1TOI12' 161 : IFYS(E 
R) ■" I RIGHT) 000 "THENYS (ER) -" ( 
RIGHT) " :NEXTER 

28 2650 FORTY-1T012 

AF 2660 YM(TY)-Y(TY)+Y(TY+12)+Y 
(TY+24) +YITY+48) +Y(TY+60) +Y| 
TY+72) +YITY+841 +Y(TY+96) 

24 2670 YM(TY) -YM(TY) +YITY+108) 
♦Y(TY+120)+YITY+132) +Y(TY+14 
4)+Y(TY+1561+Y(TY+168( 

11 2680 YM(TY) -YM(TY) +Y(TY+36) + 
YITY+180) :YM$(TY) -STR$(YM(TY 
)) 

6A 2690 NEXTTY : ZY-0 

9B 2700 FORZX-OT015:ZZ-(ZX*12»+ 

1 :ZY-ZY+1 
CE 2710 YS(ZY)=Y(ZZ>+Y(ZZ+1)+Y( 

ZZ+21+Y(ZZ+3)+Y(ZZ+4) +Y(ZZ+5 

>+Y(ZZ+6)+Y(ZZ+7) 
D4 2720 YS(ZY)-YS(ZY)+Y(ZZ+8)+Y 

(ZZ+9)+Y(ZZ+10) +Y(ZZ+11) 
C8 2730 NEXTZX 

BA 2740 F0RTY-1TO16 : YS$(TY) -STR 

$(YS(TY) ) : NEXTTY 
54 2750 GT-YM(1)+YM(21+YM(3)+YM 

(4) +YM(5) +YMI6) +YM(7) +YM(8) + 

YM(9)+YM(10)+YM(11) 
83 2760 GT-GT+YMU2) :GT$-STR$(G 

T) :GT$=MID$(GTI,2) :GT$-"(RIG 

HT) "+GTS 
9E 2770 F0RT-1T016:YMJ(T)-MID$( 

YMJ (T) .2) 
33 2780 IFYM$(T)-"0"THENYM$(T1= 

" (RIGHT) 0000" :GOTO2830 
2D 2790 L-LEN ( YMJ (T) ) : I FL"3THEN 

YM$ (T) »" (RIGHT) 0"+YM$ (T) :GOT 

02830 

E8 2800 L-LEN(YM$(T) ) : IFL-2THEN 
YM$ (T) -" (RIGHT) 00"+YM$ (T) :GO 
TO2830 

9B 2810 L-LEN(YM$ (T) ) : IFL-1THEN 
YM$ (T) (RIGHT) 000"+YM$(T) :G 
OT02830 

BD 2820 L-LEN < YM$ (T) ) : IFL-4THEN 
YMS(T)-" [RIGHT) "+YM$(T) : GOTO 
2830 

EF 2830 NEXTT 

91 2840 F0RT-1T016:YS$(T)-MID$( 

YS$(T) ,2) 
62 2850 IFYSI(T)-"0"THENYSS(T)= 

"(RIGHT) 0000" :GOTO2900 
8A 2860 L-LEN( YS$ (T) ) : IFL-3THEN 

YS$(T>-"|RlGHT10"tYSI(T) :GOT 

02900 

65 2870 L-LEN(YS$(T) ) : IFL-2THEN 
YS$ (T) -" (RIGHT) 00"+YS$ (T) :GO 
TO2900 
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LISTINGS 



► 



80 



8D 

31 
E7 
IB 



51 
05 

5F 

F8 



ID 
E2 

CE 



5F 

Fl 
0D 

A4 



Dl 



9D 



2D 



53 



94 



6D 



04 
26 

BE 

79 



7E 



45 

4E 
OC 
C9 



D7 
AD 

DF 

B8 

3D 
D5 



2680 L-LEN (YSS (T) ) : IFL-ITHEN 

YS$(T)="[RIGHT)000"+YS$(T) :G 
OT02900 

2890 L-LEN ( YSS { T) ) : IFL-4THEN 
YS$(T) -" [RIGHT] "4YS$<T) 
2900 NEXTT 
2910 RETURN 

2920 F0RER-1T0(12'16) :IFH$(E 
R> - " [RIGHTJ 000"THENH$ (ER) -" [ 

RIGHT) ":NEXTER 

2930 F0RTY=1T01 2 

2940 HM(TY)«H(TY)*-H(TY+12)4H 
(TY^24) +H(TY*48) +H(TY>60) +H( 
TY+72) +H(TY*84)*H(TY+96) 
2950 HM(TY)-HM(TY)+H(TY*108) 
+H(TY+120)-tH(TY+132) +HITY+14 
4)+H(TY+156)+H(TY*168) 
2960 HM(TY) -HM (TY) *H (TY+36) + 
H1TY+180) : HMS (TY) -STRS f HM(TY 
) ) 

2970 NEXTTY : ZY-0 

2980 FORZX-0TO15:ZZ-(ZX*12>+ 

1:2Y-ZY+1 

2990 HS(ZY)-H(ZZ)+H(ZZ+1)+H( 

ZZ*2) *H(ZZ+3)+H(ZZ+4)+H(ZZ*5 

>*H(ZZ+6)+H(ZZt7) 

3000 HS(ZY)-HS(ZY)+H(ZZ+8)+H 

(ZZ*9) +H(ZZ+10)+H(ZZ+11) 

3010 NEXTZX 

3020 F0RTY-1T016:HSS(TY)-STR 

$(HS(TY) ) : NEXTTY 

3030 GT-HM(1)4HM(2)+HM(3)*HM 

(4) +HM(5) +HM16) *HM(7) +HM(8) * 

HM(9)+HM(10)+HM(11) 

3040 GT-GT*HM(12) :GT$-STR$(G 

T) :GT$-MID$(GT$,2) :GT$="[R1G 

HTJ "4GT$:GHt-GT$ 

3050 FORT-1T016:HM$(T)-MID$( 

HM$ (T) .2) 

3070 L-LEN(HMKT) ) :IFL-3THEN 
HM£ (T) - " (RIGHTJ 0" +HMS (T) : GOT 
03110 

3080 L-LEN (HMS (T) } : I FL-2THEN 
HMS (T) I RIGHT I 0Q"+HMI(T) :G0 
TO3110 

3090 L-LEN(HMStT)) : IFL-ITHEN 
HM$(T)-"[RIGHT1000"-l-HMS(T) :G 
OT03110 

3100 L-LEN (HMS (T) ) : IFL-4THEN 
HMS (T) -" (RIGHTJ " +HMS (T) :GOTO 
3110 

3110 NEXTT 

3120 FORT-1T016:HS$(T)-MID$< 
HS$(T) ,2) 

3130 1FHSS(T)-"0"THENHS$(T)- 
" [RIGHT] 0000" :GOTO3180 
3140 L-LEN (HSS (T) ) : IFL-3THEN 
HS$ (T) -" (RIGHTJ 0"-*HS$ (T) :GOT 
03180 

3150 L-LEN(HS$ (T) ) : IFL"2THEN 
HS$ ( T) - " | RI GHT 1 00 " +HS$ (T) : GO 
T03180 

■3160 L-LEN(HS$(T) ) i IFL-ITHEN 
HS$ (T) -" [RIGHTJ 000"+HS$ (T) :G 
OTO3180 

3170 L-LEN ( HSS (T) ) : IFL-4THEN 
HSS (T) -" { RIGHTJ "+HS$ (T) 
3180 NEXTT 
3190 RETURN 

3200 FORW=1T0193:Y(W)-0;H(W) 

-0:H$(W) -"(RIGHT) ":Y$(W>- 

" (RIGHT] ":NEXTW 

3210 FORGH-1T0192 
3220 H(GH) -0: IFH(GH) >0THENH( 
GH)-0 

3230 Y(GH)-0: IFY(GH) >OTHENY( 
GH) -0 ; NEXTGH 
3240 FORE-1T016 
3250 IFSTIE) >OTHENST(E) -0 
3260 STS(E)="[RIGHT)0000":NE 
XTE 



D4 

52 

C8 
38 
43 

7C 



3270 
2) 

3280 
3) 

3290 
3300 
3310 



GT(1)-GT(2) :GT$(1)-GT$( 
GT(2)-GT(3) :GTS(2)-GT$( 



9C 
42 
30 
67 
9C 
EC 
19 
E4 
C6 



55 
EO 
E6 
24 

AA 

75 

D7 

EE 
16 

19 

D7 

12 

AO 

9D 

56 

04 

BD 

51 
19 

70 

BF 
BB 

05 
FC 
EB 

E4 

FB 
CI 
E5 
3B 
B3 
F6 



GT(3)=GT:GT$(3)-GT$ 
F0RGH-1T012 

YMS (GH) -" (RIGHTJ 0000" : I 
FYMI (GH) < >" [ RIGHTJ OOOO'THENY 
M$(GH)-"[RIGHT)0000" 
3320 HM$(GH)-"[RIGHT)0OOO":I 
FHM$(GH)<>" [RIGHT! OOOO-THENH 
H$ (GH) -" (RIGHTJOOOO" 
3330 NEXTGH 

3340 GT-0:GTS-"(RIGHT|0000" 

3350 F0RP-1T016 

3360 YSS (P) -" (RIGHTJ 0000" 

3370 HS$1P) «" (RIGHT)OOOO" 

3380 YS(P)-0000 

3390 HS(P) -0000 

3400 NEXTP:SR-0 

3410 FORP-1T012:HM(P)-0000:H 

MS (P) [RIGHTJ 0000" : YM(P) -0 : 

YM$ (P) -" (RIGHT) 0000" : NEXTP 

3420 F=ZQ(1) :S-ZQ(2) :T-ZQ(3) 

:M-ZQ(4) :MT-Z0(5) 

3430 FORTU-1T0193:F$(TU)-Y$( 

TU) :F(TU) -Y(TU) :NEXTTU 

3440 F0RTU-1T016 :ST$(TU) -YSS 

(TU) :ST(TU) -YS(TU) :NEXTTU 

3450 F0RTU-1T012:MT$(TU)=YM$ 

(TU) :MT(TU)-YH(TU) : NEXTTU 

3460 G0TO750 

3470 PRINT" (HOME, D0WN19.RIGH 
T131 PLEASE WAIT":GOSUB3650:L 
0AD"BUD END". 8,1 
3480 PRINT"(H0ME.D0WN19.RIGH 
Tl 3 J PLEASE WAIT":G0SUB3650 
3490 LOAD "BUD REVIEW" .8.1 
3500 PRINT"(H0ME,D0WN19.RIGH 
Tl 3] PLEASE WAIT" 
3510 IFPE-OTHENPE-1 :PES-" AC 
TUAL ":GOSUB2640:GOTO3560 
3520 IFPE-1THENPE-0:PES-"EST 
1 MATE" :GOSUB2920 
3530 F0RTU-1T0193:F$(TU)-HS( 
TU) :F(TU)-H(TU) : NEXTTU 
3540 FORTU-1T016:ST$(TU)=HS$ 
(TU) :ST(TU) -HS(TU) : NEXTTU 
3550 F0RTU-1T012 : MT$(TU)-HHS 
(TU) :MT(TU)-HM(TU) :NEXTTU:GO 
TO2600 

3560 FORTU-1T0193:F$(TU)-Y$( 
TU) :F(TU)-Y(TU) : NEXTTU 
3570 F0RTU-1T016;ST$(TU)-YS$ 
(TU) :ST(TU) -YS(TU) : NEXTTU 

3580 F0RTU-1T012:MTS(TU)-YMS 
(TU) :MT(TU) -YM(TU) :NEXTTU:GO 
3590 F0RGH-1T0192 
3600 IFH$(GH)-"[RIGHT1000"TH 

ENH$(GH) -" [RIGHTJ " 

3610 F$(GH)-H$(GH) :F(GH)-H(G 
H) 

3620 NEXTGH 

3630 F0RGH«1T012:ST$(GH)-HSS 
(GH) :ST(GH)-HS(GH) : NEXTGH 
3640 F0RGH-1T016:MT£(GH)-HM$ 
(GH) :MT(GH) -HM(GH) : NEXTGH : RE 
TURN 

3650 GT-YM 1 1) »YM( 21 ► YMI 31 * YM 

(4) »YM(5) »YM(6) »YM(7) *YM(8) * 

YM(9)'YM(10)t-YMUl) 

3660 GT-GT+YMU2) :GT$-STR$(G 

T) :GT$-MIDS(GT$,2) :GT$-" [RIG 

HT) "+GTS 

3670 OPEN2.8^2."'@0:BUDGET DA 

TA 2.S,W" 

3680 FORTY-1T0192 

3690 PRINT*2.Y$(TY) 

3700 PRINT#2,Y(TY) 

3710 NEXTTY 

3720 FORTY-1T0192 

3730 PRINT*2.H$(TY) 



7F 


"5 ~7 A n 


rH!Wl#2,H(TY) 




37*sn 

J i 3 (J 


MPVTTV 

(•LA 111 


t 3 


17fifl 

J'OU 




DC 


J i / U 


r UK li-l lOl 2 


00 


J /oU 


PRINT#2.YM$(TY) 




o/y u 


^KlNlft^ , YM(TY) 


El 


\ r n n 


NFYTTV 

1* t. A 1 1 I 


44 


18 1 0 


r^DTV» 1 Tfi 1 ~l 
C \JK1 I — I HJL£ 


i n 


3R?n 

JU4U 


tDIWT»1 UMff /TV\ 

r K i v* i w £ . ru>is ( 1 Y ) 


ID 


3830 


PRINTS2 . HM(TY) 


Rfl 


■J - ' t u 


Nt.x 1 1 y 


01 


3850 


FORTY-1T016 


E9 


3860 


PRINT»2.YS$(TY) 


OD 


3670 


PRINT#2. YS(TY) 


50 


3880 


NEXTTY 


79 


3890 


FORTY- 1T016 


C4 


3900 


PRirrr#2.Hs$(TYj 


54 


3910 


PRINT#2,HS(TY) 


34 


3920 


NEXTTY i CL0SE2 


E7 


3930 


RETURN 



PROGRAM: BUDGET REVIEW 



48 


100 


GOTO380 




67 


110 


0PEN2.8. 2. "0 : BUDGET 


DATA 




2. 


5.R" 




Dl 


120 


FORTY-1T0192 




57 


130 


INPUT*2.YS(TY) 




EB 


140 


INPUT#2.Y(TY) 




31 


150 


NEXTTY 




E9 


160 


FORTY-1T0192 




CC 


170 


INPUT#2.H$(TY) 




74 


180 


INPUT#2.H(TY) 




C9 


190 


NEXTTY 




Fl 


200 


INPUT#2,GT$ 




46 


210 


FORTY-1T012 




34 


220 


INPUT#2,YM$(TY) 




00 


230 


INPUT#2,YM(TY) 




9F 


240 


NEXTTY 




5E 


250 


F0RTY=1T012 




8C 


260 


INPUT#2.HM$(TY) 




68 


270 


INPUT#2,HM(TY) 




B6 


280 


NEXTTY 




FB 


290 F0RTY-1TO16 




63 


300 


INPUT#2, YS$(TY) 




OF 


310 


INPUT*2,YS(TY) 




4E 


320 


NEXTTY 




93 


330 


F0RTY-1T016 




16 


340 


INPUT#2.HS$(TY) 




A6 


350 


INPUT#2.HS(TY) 




32 


360 


NEXTTY : CLOSE2 




FD 


370 


RETURN 




8B 




IFANS-MID$(MTS(1),2. 


3) AN 




DAM-0 THEN400 




DE 


390 


GOSUBl 10:GOTO520 




82 


400 


FORP- 1T01 6 : YSS (P) -" [RICH 




Tl 0000" :NEXTP 




6A 


410 


F0RP-1T012:YM$(P)-"[RIGH 




T)0O00":NEXTP 




21 


420 


F0RER-1T0(12*16) :IFY$(ER 



) -" [RIGHTI 000"THENY$(ER) =■" [F 

1GHTJ " :NEXTER 

87 430 FORTY-1T016 

81 440 SR$(TY) -5S(TY) :SRS(TY)-S 
S$(TY) 

FB 450 SS$(TY)-SU(TY) :SS$(TY)-S 
U$(TY) 

9D 460 SUS(TY) -ST(TY) :SU$(TY) -S 
T$ (TY) 

6E 470 NEXTTY ; FORTY- 1 TO 1 2 
6F 480 BAITY) =BB(TY) :BAS(TY) -BB 
$(TY) 

3B 490 B8(TY)-BC(TY) :BBS(TY)-BC 
S(TY) 

09 500 BC(TY)-MTITY) :BC$(TY)-MT 
S(TY) 

8D 510 NEXTTY : AM$ - "+ " 
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61 520 LA$-"":LB$-" ":LC$-" '": 

LDS-" [SPC31 " : LES-" ISPC4] " 
DA 530 LFS-" [CT40] " : LKS-" (RIGHT 

E2 540 F0RTY-lTO16:STS<TY)-YS$( 
TY) : NEXTTY 

28 550 F0RTY-1T012:MT$(TY)-YMS( 
TY) : NEXTTY 

D7 560 IFFR-lTHENLO-1 :LOAD"BUDG 

ET CALC" 9,1 
F7 570 PR I NT" 1CI,R . Rl GHT12 ) REV IE 

W FIGURES IDOWN. LEFT14 .CT6) [ 

CT7 ) " 

4F 580 PRINT"[D0WN3.RIGHT35.C@4 
1" 

ED 590 PRINT-REVIEW SUBJECTS... 

IRVSON1 Fl 

[RVSOFF1 " 
IB 600 PRINT"[D0WN.RIGHT35.C@4] 

9D 610 PRINT-REVIEW MONTHS 

(RVSONI F3 

IRVSOFFI " 

F7 620 PRINT"|D0WN.RIGHT35.C^4J 
ii 

E5 630 PRINT"REVIEW TOTALS GRAP 

HICALLY [RVSONI F5 

(RVSOFF) " 
A3 640 PRINT"[D0WN,RIGHT35.C@4] 

II 

58 650 PRINT-REVIEW PROFIT OR L 

OSS [RVSONJ F7 

I RVSOFF ) " 
80 660 PRINT" [DOWN. RIGHT29, C@ll 
J": 

3A 670 PRINT-RETURN TO THE SPRE 

ADSHEET (RVSONJ SPACE BAR 

( RVSOFF I " 

54 680 PRINT-(DOWN3,RIGHT3JWHAT 
IS YOUR OPTION ?" 

C4 690 GETOUS: 1 FQUS-" "THEN690 

9B 700 IFQU$-"IF1|"0RQU$-"IF31" 
ORQUS-" (F51 "ORQUS- " | F7 ) "ORQU 
S-" "THEN720 

7E 710 GOTO690 

67 720 PRINT"fUP,SPC13|PLEASE W 
AIT" 

45 730 IFOU$=" IF1I "THEN790 
45 740 IFQUS-" [F3] "THEN1 190 
87 750 IF0UJ-" [F51 'THEN1520 
ED 760 IFQU$-"[F7)"THEN2810 
87 770 IFQUS-" "THENLO-1 : LOAD"B 

UDGET CALC" ,8.1 
B5 780 GOTO690 

E4 790 PR! NT" |CLR . RIGHT1 2 J REV IE 
W FIGURESIDOWN.LEFT14.CT6] [ 
CT7J " 

BE 800 PRINT" IDOWN. RIGHT12) ";CH 
; LBS ; CM* 1 : LBS : CM*2 : LBS : CM+3 

E9 810 PRINT" IDOWN) " 

FO 820 PRINTSt(l) ;LAS;BA$(1) ;LC 
$ ; BBS ( 1 ) : LCS ; BCS ( 1 ) : LCS ; YSS ( 

1) : PRINT 

C3 830 PR1NTS$<2) ;LAS:BAS(2) : LC 
S:BB$(2) :LC$;BCS(2) ;LC$:YS$( 

2) : PRINT 

D6 840 PRINTSSO) ;LAS;BA$(3) :LC 
S;BBS(3) ;LC$;BCS(3I ;LC$;YSS< 

3) : PRINT 

29 850 PRINTSS(4) ;LAS;BA$(4) ;LC 
$;BBS(4J ;LCS;BC$(4) :LC$:YSS{ 

4) : PRINT 

2C 860 PRINTSSI5) ;LA$:BAS(5) :LC 
S:BB$(5) :LCS;BC$(5) : LCS ; YSS ( 

5) : PRINT 

7F 870 PRINTSS(6) ;LAS;BAS(6) ;LC 
$;BB$(6) ;LC$:BC$(6> ; LCS : YSS ( 

6) : PRINT 

3A 980 PR1NTS$(7) ;LAS;BAS(7) ;LC 
$;BBS(7) :LCS;BCS(7J : LC$:YS$( 

7) :PRINT 

15 890 PRINTSS(S) :LA$;BA$(B) ;LC 
$;BBS(8) :LC$ ; BCS(8> ;LCS;YS$( 

8) : PRINT 



D3 900 PRINT" IDOWN) USE JOYSTI 

CK TO VIEW OTHER SUBJECTS" 
5B 910 PRINT" I HOME 1 " 
42 920 FO-16 :SD-NOTPEEK (56320) A 

ND15 :FO-PEEK(56320) AND16 
3E 930 I F ( SDAND 1 ) THEN9 20 
BO 940 I F ( SDAND2 ) THEN99 0 
21 950 I F (SDAND4) THEN920 
2B 960 I F ( SDAND8 ) THEN9 20 
20 970 IFFO-0THEN570 
62 980 SD-0:GOTO920 
DC 990 PRINT"(CLR.RIGHT121REVIE 

W FIGURES [ DOWN. LEFT 1 4. CT6) [ 

CT7) " 

66 1000 PRINT" (DOWN, RIGHT12] ";C 
M ; LBS : CM* 1 ; LBS : CM+2 ; LBS ; CM*3 

CI 1010 PRINT" (DOWN) " 

20 1020 PRINTS$(9) ;LA$;BAS(9) ;L 

C$;BBS(9) ;LC$;BC$(9) ; LCS ; YSS 

(9) :PRINT 
E3 1030 PRINTSS(IO) ;LAS:BAS(10) 

;LC$;BB$(10) ;LC$;BCS(10) ; LCS 

;YS$(10) ;PR(NT 
6A 1040 PRINTSS(ll) :LA$;BA$(11) 

: LCS ; BBS (11): LCS ; BCS (11); LCS 

;YSS(11) : PRINT 

91 1050 PRINTS$(12) ;LA$:BAS(12) 
;LC$;BB$(12) ;LCS;BC$(12> ; LCS 
;YS$(12) :PRINT 

86 1060 PRINTSSU3) ;LAS;BA$(13) 

;LC$;BBS(13) ;LCS;BCS(13) ; LCS 

;YS$(13) ; PRINT 
5F 1070 PRINTS$(14) :LA$;BAS(14) 

:LC$;BB$(14) :LCS;BC$(14) : LCS 

;YSS(14) :PRINT 
96 1080 PRINTS$(15) ;LA$;BAS(15) 

:LC$;BB$(15) ,'LCS : BC$ ( 15> ; LCS 

;YS$(15) :PRINT 
ID 1090 PRINTSSI16) :LAS:BA$(16) 

;LCS;BB$(16) :LC$;BCS(16) ;LCS 

:YS$(16) : PRINT 
60 1100 PRINT" [DOWN! USE JOYST 

ICK TO VIEW OTHER SUBJECTS" 

18 1110 PRINT" IHOMEJ " 

BE 1120 F-16 : SD-NOTPEEK (56320) A 

ND15 :FO-PEEK (56320) AND 16 
F2 1130 IF (SDAND1 ) THEN790 
Al 1140 IF(SDAND2)THEN1120 
B9 1150 IF(SDAND4)THEN1120 
37 1160 IF(SDAND8)THEN1120 
E7 1170 IFFO-0THEN570 
98 1180 SD-0:GOT01120 

19 1190 PRINT"[CLR.RIGHT12)REVI 
EW FIGURES(DOWN,LEFT14,CT6) 
[CT7]" 

2E 1200 PRINT" IDOWN2 , RIGHT121 " ; 
CM : LBS ; CM* 1 ; LBS : CM*2 ; LBS : CM* 
3 

4B 1210 PR I NT " ID0WN2 ) " 

19 1220 PRINTMS(l) ; " I RIGHT7I" : L 

A$;SRS(1) ;LC$:SS$(1) ; LCS : SUS 

(1) :LCS;YM$(1) 

92 1230 PRINT"[DOWN)";M$(2);"IR 
IGHT7I ":LA$;SRS(2) ;LC$;SS$(2 
) ; LCS; SUS (2) ;LC$;YM$(2) 

01 1240 PRINT"(D0WN)";MS(3);"|R 
IGHT7)";LAS;SR$<3) :LCS;SSS(3 
) :LCS;SUS(3) :LC$;YMS(3) 

B8 1250 PRINT" (DOWN) " ;MS (4) ;" (R 
IGHT7)";LAS;SR$(4) ;LCS;SS$(4 
) ;LC$;SU$(4) ;LCS;YMS(4) 

23 1260 PRINT" [DOWN]- :M$ (5) ;"(R 
IGHT7) ";LA$;SR$(5) ;LC$;SS$(5 
) ;LC$;SU$(5) ;LCS: YM$(5) 

F6 1270 PRINT" IDOWN] -;M$(6) :" [R 
IGHT7] ":LAS;SR$(6> ;LCS;SSS(6 
) ;LC$;SUS(6) : LCS;YMS(6) 

E9 1280 PRINT" 1 DOWN3) USE JOYST 
ICK TO VIEW FOLLOWING MONTHS 
" : FORTY- 1T01 00 : GETTUS : NEXTTY 

3E 1290 FO-16:SD-NOTPEEK(56320) 
AND15 ;FO-PEEK (56320) AND16 



CB 1300 IF(SDAND1)THEN1290 

D8 1310 IF(SDAND2)THEN1360 

DC 1320 IF(SDAND4)THEN1290 

C6 1330 IF(SDAND8)THEN1290 

04 1340 IFFO-0THEN570 

27 1350 SD-0:GOTO1290 

98 1360 PRINT"[CLR,RIGHT12]REVI 

EW FI CURES [ DOWN , LEFT1 4 . CT6 ] 

ICT7]" 

5F 1370 PR1NT"[D0WN2,RIGHT12J"; 
CM : LBS ; CM* 1 ; LBS : CM*2 : LBS ; CM+ 
3:PRINT"[DOWNI" 

5A 1380 PRINT" [DOWNI" ;MS(7) ; " [R 
IGHT7] ";LAS;SR$(7) : LC$;SS$(7 
) :LC$;SUS(7) ;LC$:YMS(7) 

7F 1390 PR I NT" 1 DOWN 1 " ; MS ( 8 ) ; " | R 
IGHT7] ";LAS;SR$(8) :LCS;SS$(8 
) ;LCS;SU$(8) ; LCS ; YMS(8) 

14 1400 PRINT'MDOWN] ";M$(9) :"[R 
IGHT7]";LAS;SR$(9) :LC$;SSS(9 
) ;LC$;SU$(9) :LCS;YMS(9) 

6E 1410 PRINT" IDOWN] ";MS (10) ;"[ 
R ( GHT7 ) ";LAS;SRS(10) ;LCS;SSS 
(10) ;LC$;SU$(10) ;LCS;YMS(10) 

24 1420 PRINT" [DOWN3] " ;MS ( 1 2) ; " 
[RIGHT7)";LA$;SR$(12) ;LCS;SS 
S(12) ;LC$;SU$(12) :LC$;YM$<12 
> 

26 1430 PRINT" (DOWN3) USE JOYST 

ICK TO VIEW FOLLOWING MONTHS 
•» 

D3 1440 PRINT" IUP7) " ;M$(11) :" IR 
IGHT7J ";LAS:SRS(1D ;LC$;SSS( 
11) ;LCS;SU$(11) ;LC$;YMS(11) 
5E 1450 FO-16:SD-NOTPEEK(56320) 

AND 15 :FO-PEEK (56320) AND 16 
6B 1460 IF(SDAND1)THEN1190 
7A 1470 IF(SDAND2)THEN1450 
F2 1480 1F(SDAND4)THEN1450 
D4 1490 IF(SDAND8)THEN1450 
64 1500 IFFO-0THEN570 
35 1510 SD-0:GOTO1450 
69 1520 PRINT" I CLR, RIGHTS J REV IE 

W FIGURES IDOWN. LEFT1 4. CT6 I ( 

CT7 J " 

8A 1530 IFGT>4000THEN2160 
5F 1540 IFGTI 1) >4000THEN2160 
4C 1550 IFGTI 2) >4000THEN2160 
CD 1560 IFGTI3) >4000THEN2160 
8E 1570 PRINT" [D0WN4 . RIGHT6 J " ; L 

AS ; CM: LBS : CM* 1 ; LBS : CMt 2 : LBS : 

CM+3 

D2 1580 PRINT" IRIGHTI4000 |C@27 
1 " 

6B 1590 PRINT"[R1GHT5,CM,SPC6,S 

- . SPC6 . S- . SPC6 . S- . SPC6 , CG J " 
A9 1600 PRINT"|RIGHT5.CM,SPC6.S 

- . SPC6 . S- . SPC6 . S- , SPC6 , CG ) " 
87 1610 PRINT" [RIGHTS, CM. SPC6.S 

- , SPC6 . S- . SPC6 , S- . SPC6 , CG ) " 
04 1620 PRINT"[RIGHT)3000|CM,C@ 

6 , S- . C@6 . S- . C$6 . S- . C@6 , CG ] " 
93 1630 PRINT" I RIGHTS . CM, SPC6 , S 

- , SPC6 , S- , SPC6 . S- . SPC6 , CG ) " 
Dl 1640 PRINT" [RIGHTS. CM, SPC6.S 

AF 1650 PRINT"[RIGHT5.CM.SPC6.S 

- . SPC6 , S- . SPC6 , S- . SPC6 . CG ) " 
F3 1660 PRINT"[RIGHT)2000[CM,C@ 

6 . S- . C@6 . S- , C@6 . S- . C@6 . CG ] " 
BB 1670 PRINT" I RIGHTS , CM, SPC6 , S 

- , SPC6 . S- , SPC6 . S- . SPC6 , CG ] " 
B9 16B0 PRINT"[RIGHT5,CM,SPC6,S 

- . SPC6 , S- , SPC6 , S- . SPC6 , CG ) " 
17 1690 PRINT" [RIGHTS, CM. SPC6.S 

- , SPC6 , S- , SPC6 , S- , SPC6 . CG ] " 
DE 1700 PRINT" [RIGHT) 1000 (CM. C@ 

6 , S- . C@6 . S- . C@6 , S- . C@6 , CG ] " 

63 1710 PRINT"[RIGHT5.CM,SPC6,S 
- . SPC6 . S- , SPC6 . S- . SFC6 , CG ) " 

61 1720 PRINT"[RIGHT5.CM.SPC6.S 

- . SPC6 . S- , SPC6 . S- . SPC6 . CG ] " 
FF 1730 PRINT" [RIGHT5. CM. SPC6.S 
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- . SPC6 , S- . SPC6 , S- ; SPC6 , CG ] " 
2D 1740 PRINT" [RIGHT. SPC31 0 [CM. 
C£6 . S- . C@6 . S- . C@6 , S- . C@6 . CG ) 

Fl 1750 GI-1:GH-7:GOSUB1790 
18 1760 GI-2:GH-14:GOSUB1790 
87 1770 GI-3:GH=21 :GOSUB1790 
E2 1780 GTS-STRS(GT) :LE$=LEFTS( 
GTS. 2) :GTS(4)-GT$:GI-4:GH-28 
:GOSUB1830:GOTO2040 
IF 1790 GT(4)=GT 
3E 1800 F0RA-1T04 
50 1810 GTS I A) e STR$(GT(A) ) 
E2 1820 NEXT A 

D3 1830 LES=LEFTS (GTS (Gl ) ,2) 
B8 1840 PRINT" [HOME . D0WN23 ) "TAB 
(GH) ; 

64 1850 LE-VAL(LES) : IFLE-0THEN1 
900 

81 1860 F0RDE-1T0LE 

85 1870 PRINT" [RVSON.SPC4. UP. LE 

FT4 , SPC4 , UP . LEFT4 1 *j 
87 I860 PRINT" f RVSON. SPC4. UP. LE 

FT4 . SPC4 . UP , LEFT4 ] " ; 
6 A 1890 NEXTDE 

23 1900 LES~MID$(GT$(GI) ,3.1) 
71 1910 LE-VAL(LES) :IFLE=0THEN1 
990 

4C 1920 IFLE H 1THENPRINT" (RVSOFF 
.C041 ":GOTO1990 

73 1930 IFLE-2THENPRINT" (RVSON. 
CY4I " :GOTO1990 

AB 1940 I FLE-3THENPRI NT" [ RVSON , 

SPC4 . UP , LEFT4 . RVSOFF . CP4 . RVS 

OFFJ":GOTO1990 
96 1950 I FLE-4THENPRI NT" [RVSON. 

SPC4 . UP . LEFT4 . RVSON . CY4 . RVSO 

FFJ " :GOTO1990 
69 1960 IFLE-5THENPRINT" [RVSON. 

SPC4 . UP . LEFT4 , RVSON . SPC4 , RVS 

OFF) " :GOTO1990 
47 1970 I FLE-6THENPR I NT" [ RVSON . 

SPC4 , UP . LEFT4 , RVSON . SPC4 . RVS 

OFF . UP . LEFT 4 . RVSOFF . C04 ) " : GO 

TO1990 
4C 1980 GOTO2000 
43 1990 RETURN 

74 2000 I FLE-7THENPR I NT" [ RVSON , 
SPC4 . UP . LEFT4 . RVSON . SPC4 . RVS 
OFF , UP . LEFT4 . RVSON . CY4 ) " : GOT 
01990 

IE 2010 IFLE-8THENPRINT" [RVSON. 
SPC4 . UP . LEFT4 . RVSON . SPC4 . RVS 
OFF . UP . LEFT4 . RVSON . SPC4 . RVSO 
FF . UP . LEFT4 . RVSOFF . C04 ) " : GOT 
01990 

7F 2020 1FLE-9THENPRINT" [RVSON. 
SPC4 . UP . LEFT4 . RVSON . SPC4 . RVS 
OFF . UP , LEFT4 . RVSON . SPC4 . RVSO 
FF . UP , LEFT4 . RVSON . CY4 ) " i GOTO 
1990 

FD 2030 GOTO1990 

00 2040 PRINT"(HOME.RIGHT21.RVS 

OFF ) : - I RVSON ) GRAND TOTALS [ 

RVSOFF I " 

60 2050 PRINT" [HOME. DOWN23.RIGH 
T61"; 

DC 2060 PR I NT" I RVSON ) " GT ( 1 ) 
23 2070 PRINT" [HOME. DOWN23. RICH 
T131"; 

6A 2080 PR I NT" [ RVSON ) " : GT ( 2 ) 
E8 2090 PRINT" (HOME. DOWN23.RIGH 
T20]" ; 

85 2100 PRINT"[RVS0N1";GT(3) 
73 2110 PRINT" [HOME. D0WN23.RIGH 
T27] "; 

33 2120 PRINT"[RVS0N]";GT 

9C 2130 PRINT" [HOME. D0WN23 . RIGH 

T6) [RIGHT41 (RIGHT) [RIGHT4 

) [RIGHT) [RIGHT4 ) (RIGHT) I 

RIGHT4I " 
C2 2140 PRINT" [HOMEI " :GT$-MID$( 

GTS.2) iGTS-" (RIGHT) "+GTS 



52 2150 GOT02740 

62 2160 PR I NT" [ CLR . R I GHT5 ) REV I E 

W FIGURES [DOWN . LEFT14 . CT6 ) I 

CT7 ) " 

AC 2170 PRINT"[RIGHT6)":LAS;CM; 

LBS ; CM+1 ; LBS ; CM+2 ; LBS ; CM + 3 
54 2180 PRINT" [RIGHTI9999 [C@27 

J " 

B9 2190 PRINT"|RIGHT5.CM.SPC6.S 

- , SPC6 , S- . SPC6 . S- . SPC6 . CG ) " 
17 2200 PRINT" (RIGHT5, CM. SPC6.S 

-, SPC6 . S- . SPC6 . S- . SPC6 . CG ) " 
15 2210 PRINT"[RIGHT5.CM.SPC6,S 

- . SPC6 , S- . SPC6 . S- . SPC6 . CG) " 
EB 2220 PRINT"(RIGHT]8000(CM.C@ 

6 , S- . C@6 , S- . C@6 . S- . C@6 . CG ] " 
61 2230 PRINT"[RIGHT5.CM.SPC6.S 

- , SPC6 , S- . SPC6 , S- . SPC6 . CG ) " 
FF 2240 PRINT"[RIGHT5,CM.SPC6.S 

- , SPC6 . S- . SPC6 , S- . SPC6 . CG ) " 
FD 2250 PRINT"[RIGHT5.CM.SPC6.S 

- . SPC6 . S- . SPC6 . S- . SPC6 . CG ) " 
OD 2260 PR1NT"[RIGHT]6000[CM.C@ 

6 . S- , C@6 . S- , C@6 . S- , C@6 , CG ) " 
89 2270 PRINT"[RIGHT5,CM.SPC6.S 

- . SPC6 , S- . SPC6 , S- . SPC6 . CG ) " 
67 2280 PRINT"|RIGHT5.CM,SPC6,S 

- , SPC6 . S- . SPC6 , S- , SPC6 . CG ] " 
65 2290 PRINT" (RIGHT5. CM, SPC6 .S 

- , SPC6 . S- . SPC6 . S- , SPC6 . CG I " 

77 2300 PRINT" (RIGHT) 4000 (CM, C@ 
6 , S- , C@6 . S- . C@6 . S- . C©6 . CG] " 

36 2310 PRINT" [RIGHTS . CM, SPC6 , S 

- . SPC6 . S- , SPC6 . S- . SPC6 , CG I " 
4C 2320 PRINT"(RIGHT5.CM.SPC6,S 

- . SPC6 , S- . SPC6 . S- . SPC6 . CG ] " 
92 2330 PRINT"[RIGHT5.CM.SPC6.S 

- . SPC6 , S- . SPC6 . S- . SPC6 . CG ) " 
A2 2340 PRINT"[RIGHT]2000[CM.C@ 

6 . S- . C@6 . S- . C@6 . S- . C@6 . CG ] " 

22 2350 PRINT"[RIGHT.SPC4.CM.SP 
C6 . S- , SPC6 . S- . SSPC . SPC5 . S- , S 
PC6.CG1 " 

2B 2360 PRINT" (SPC5. CM. SPC6.S-. 

SPC6 , S- . SPC6 . S- . SPC6 . CG ) " 
21 2370 PRINT"[SPC5.CM.SPC6.S-. 

SPC6 . S- . SSPC , SPC5 , S- . SPC6 . CG 

V 

2F 2380 PRINT"[SPC4)0[CM.SPC6,S 

- , SPC6 , S- . SPC6 . S- . SPC6 , CG ) " 
20 2390 GI-1:GH-7:GOSUB2420:GI- 

2:GH-14:GOSUB2420:GI-3:GH-21 

:GOSUB2420 
9F 2400 GTS-STRS(GT) :LE$-LEFTS( 

GTS.2) 

CB 2410 GTS(4)-GTS:GI-4:GH-28:G 

OSUB2430:GOTO2630 
Bl 2420 GT(4) -GT:F0RA-1T04:GT$( 

A) -STR$(GT(A) ) :NEXTA 
El 2430 LES-LEFTS (GTS (GI ) , 2) 
5E 2440 PRINT" [ HOME, D0WN23) "TAB 
(GH) ; 

53 2450 LE-VAL(LES) : IFLE-0THEN2 
490 

23 2460 FORDE-1TOLE 

AF 2470 PR I NT" [ RVSON . SPC4 . RVSOF 
F . UP . LEFT4 . RVSON . SPC4 , RVSOFF 
. UP . LEFT4 ) " : 

3A 2480 NEXTDE 

B3 2490 LES-MIDSIGTS(GI) ,3.1) 

49 2500 LE-VALILES) : IFLE-0THEN2 
580 

78 2510 IFLE-1THENPR1NT"[C04]": 
GOTO2580 

AB 2520 1FLE-2THENPRINT"(CI4]": 

GOTO2580 
IE 2530 IFLE=3THENPRINT" (RVSON. 

CU4. RVSOFF) " .GOTO2580 
B5 2540 I FLE-4THENPR I NT " [ RVSON . 

CY4 . RVSOFF ) " : GOTO2580 
28 2550 IFLE-5THENPRINT" [RVSON. 

CT4. RVSOFF) " :GOTO2580 
8A 2560 IFLE-6THENPRINT" [RVSON. 



SPC4, RVSOFF) ":GOTO2580 
■ 03 2570 GOTO2590 
90 2580 RETURN 

86 2590 I FLE-7THENPRI NT" ( RVSON . 
SPC4 . UP . LEFT4 . RVSOFF . C@4) " :G 
OTO2580 

9F 2600 IFLE-STHENPRINT" [RVSON, 
SPC4 . UP . LEFT4 , RVSOFF . CP4 ] " : G 
OTO25B0 

BC 2610 IFLE-9THENPRINT" (RVSON, 

SPC4 . UP , LEFT4 . RVSOFF , C04 J " • G 

OT02580 
5C 2620 GOT02580 
OB 2630 PRINT"[H0ME.RIGHT21.RVS 

OFF):- (RVSON)GRAND TOTALS [ 

RVSOFF I" 

30 2640 PRINT"[HOME,DOWN23,RIGH 
T6 | " ; 

EC 2650 PRINT" (RVSON) "GT( 1) 

D3 2660 PRINT" [HOME. DOWN23. RIGH 

T13)"; 

9A 2670 PRINT" [RVSON] ";GT(2) 

58 2680 PRINT"(HOME.DOWN23.RIGH 
T20J"; 

B5 2690 PRINT" [RVSON] " ;GT(3) 
C3 2700 PRINT" [HOME, DOWN23, RIGH 
T27] "; 

C3 2710 PR I NT" I RVSON I " ;GT 

6C 2720 PRINT" [HOME. DOWN23. RIGH 

T6) [RIGHT4I [RIGHT] [RIGHT4 

1 (RIGHT] (RIGHT4) [RIGHT] I 

RIGHT4I " 
52 2730 PRINT" [HOME] " :GT$-MID$( 

GTS. 2) :GT$-" [RIGHT) "4GTS 

87 2740 FO-16:SD-NOTPEEK(56320) 
AND 1 5 : FO= PEEK (56320) AND 1 6 

59 2750 IF(SDAND1)THEN2740 
D6 2760 IF(SDAND2)THEN2740 
6E 2770 IF(SDAND4)THEN2740 
04 2780 IF(SDAND8)THEN2740 
69 2790 IFFO-0THEN570 

A7 2800 SD-0:GOTO2740 
EF 2810 PRINT"[CLR.RIGHT12)REVI 
EW FIGURES[DOWN.LEFT14,CT6] 
( CT7 ] " 

68 2820 F0RUI-1T012:A$=LEFTS(MS 
<UI) .2) 

8D 2830 PRINTTABU1+UI) :AS; :NEX 

TUI :PRINT"(SPC4|": 
OF 2840 F0RAF-1T016:PRINTS$(AF) 

:"[SO.CY.SO.CY.SO,CY.S0.CY,S 
O.CY.SO.CY.SO.CY.SO.CY.SO.CY 

.SO.CY.SO.CY.SO.SP] [SO.SP) " 

:NEXTAF 

IF 2850 PRIiyTTAB(12)"(CY24] [CY 
2] " 

CE 2860 PR I (NTTAB (12) ; " [ SO . CY . SO 
.CY.a0.CY.50,CY.S0.CY.S0,CY, 
SO.CY.SO.CY.SO.CY.SO.CY.SO.C 
Y, SO.SP) (SO.SP)" 

DB 2870 PRINTTAB02) " [CY24] (CY 
2]" 

9D 2680 PRINT" (RED. RVSON] [RVSO 
FF. YELLOW] -LOSS (ACTUAL IS 
MORE THAN ESTIMATED)" 

2E 2890 PRINT" (GREEN. RVSON] [RV 
SOFF.YELL0W]=PR0FIT(ACTUAL I 
S LESS THAN ESTIMATED)" 

A6 2900 FORW-1T0192 

55 2910 V(W)=H(W)-Y(W) :IFV(W)>0 
THENV(W)=1:G0T02940 

8C 2920 IFV(WKOTHENV(W)— 1:G0T 
02940 

03 2930 IFV(W)-0THENV(W)-0:GOTO 
2940 

58 2940 NEXTW:SC-10:MP=0:PRINT" 
[HOME . D0WN2 ) " : :GOT03030 

4F 2950 FORER-1T012 

A7 2960 MP=MP*1:IFV(MP)-1THEN29 
90 

62 2970 IFV(MP)— 1THEN3000 

61 2980 IFV(MP)-OTHEN3010 

F3 2990 PRINTTABtSC* (ER'2) ) " [GR 
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LISTINGS 



EEN.RVSON] [RVSOFF . YELLOW] " 
; :GOTO3020 
A7 3000 PRINTTAB(SC+(ER«2)>"[RE 
D.RVSON1 [RVSOFF, YELLOW J"; ; 
GOTO3020 

93 3010 PRINTTAB(SC+(ER*2)) " [RE 
D . RVSON . R I GHT2 , RVSOFF . YELLOW 
]"; 

6C 3020 NEXTER : RETURN 

1C 3030 F0RZZ-1T016:PRINT"":G0S 

UB2950:NEXTZZ 

F8 3040 MP-0:PRINT"(H0ME.D0WN2] 
ii 

25 3050 MP-MP+1:IFMP-17THEN3120 

73 3060 IO=HS(MP)-YS(MP) :IFIO>0 
THEN10-1 :GOTO3110 

55 3070 IFIO<0THENIO— l:GOTO310 
0 

F3 3080 IFIO«0THENIO-0:GOTO3090 

A8 3090 PRINTTAB(37) " [RVSON. RIG 
HT2. RVSOFF) " :GOTO3050 

AO 3100 PRINTTAB(37) " [RED, RVSON 
1 1RVSOFFI " :GOTO3050 

84 3110 PRINTTAB(37) " (GREEN, RVS 
ON) (RVSOFF) ":GOT03050 

74 3120 MP-0:PRINT"[HOME.DOWN19 
)" 

2B 3130 MP-MP+1:IFMP-13THEN3200 

A8 3140 IO-HM(MP)-YM(MP) :IFIO>0 

THENIO-1 :GOT03190 
6E 3150 IFIO<0THENIO— 1 :G0T0318 

0 

AC 3160 IFIO-QTHENIO-0:G0TO3170 

77 3170 PRINTTAB(10+(MP*2) ) "[RV 
SON . R I GHT2 . RVSOFF ) " ; : G0T0313 
0 

9F 3180 PRINTTAB(10+(MP*2) ) " [RE 
D. RVSON] [RVSOFF)"; :GOT0313 
0 

2B 3190 PRINTTABdO* (MP*2) ) " [GR 
EEN , RVSON ) [ RVSOFF ) " ; : GOT03 
130 

17 3200 PRINT" [HOME. D0WN19) " 
21 3210 I FGH-GTTHENPR1NTTAB ( 37) 

" I RVSON , R I GHT2 . RVSOFF ] " : GOTO 

3240 

3C 3220 I FGH >GTTHENPR ! NTTA8 ( 37 ) 
" [GREEN, RVSON] (RVSOFF] " :GO 
T03240 

AE 3230 I FGH< GTTHENPR I NTTA8 ( 37 ) 
" [RED, RVSON] [RVSOFF] " :G0T0 
3240 

96 3240 PRINT" I YELLOW] " ; :FO-PEE 

K (56320) AND16 
4F 3250 IFF0-0THEN570 
4A 3260 GOTO3240 



PROGRAM : CHANGE SUBJECTS 



61 100 REM -""CHANGE SUBJECT' 
* * * * 

21 110 POKE53280,9:POKE53281.9: 

POKE646 . 7 : PRI NTCHR$ ( 14) 
EF 120 DIMCH$<20) ,NB(20) ,NC(20) 

93 130 PRINT"!CLR.RIGHT12.SC,SH 
, SA , SN , SG , SE , SSPC . SS , SU , SB , S 
J , SE . SC , ST , SS , DOWN . LEFT 15 , CT 
6] [ CT8 ] " 

AO 140 PRINT"(DOWN5.RIGHT2.SY|0 
U ARE ALLOWED UP TO 16 SUBJE 
, CTS IN " 

59 150 PR I NT " [ DOWN , R I GHT2 ] THE B 
UDGET CALC PROGRAM. [ST] HIS P 
ROGRAM " 

3D 160 PRINT"|D0WN.R1GHT2]ALL0W 
S YOU TO CHANGE THE SUBJECTS 



IN " ' 

30 170 PRINT" [DOWN, RIGHT21 THE M 

AIN PROGRAM. " 
7E 180 PRINT" [D0WN4. RIGHTS] [SP 

,SR.SE.SS2) (SA.SN.SY) (SK.S 

E.SYI TO CONTINUE" 

09 190 GETAI : IFAS-""THEN190 

F5 200 PRINT" [CLR.RIGHT12.SC. SH 
.SA.SN.SG.SE. SSPC , SS, SU , SB . S 
J , SE . SC . ST , SS . DOWN . LEFT15 . CT 
6] [CT8] " 

B9 210 PRINT" [DOWN. RIGHT2ITHE S 
UBJECTS ARE :-" 

78 220 OPEN2.8,2,"0:BUDGET SUB J 
ECTS,S,R" 

F9 230 FORT-1T016 

10 240 INPUT#2,CH$(T) :PRINT" [RI 
GHT19 ] "T : CHI IT) ; INPUT#2.NB(T 
) :INPUT*2.NC(T] 

DF 250 NEXTT:CL0SE2:PRINT"(RIGH 
T20, WHITE] 17 FINISH AMMENDIN 
G [YELLOW] " 

20 260 GOTO620 

10 270 PRINT"[CLR.RIGHT12.SC,SH 
,SA,SN,SG,SE,SSPC,SS.SU.SB.S 

JJ.SE.SC.ST.SS. DOWN . LEFT 15 . CT 

6) [ CTS } " 
D9 280 PRINT" [D0WN3.STJHE SUBJE 

CT [SW.SA.SS] :"CH$(SU) 
6D 290 PRINT" (DOWN2JDO YOU STIL 

L WISH TO CHANGE IT (Y/N) ?" 

C7 300 GETQU$:IFQU$-""THEN300 
7A 310 IFQU$-"N"THEN560 
C9 320 IFQU$-"Y"THEN340 
F5 330 GOTO300 

9A 340 PRINT"[CLR,RIGHT12,SC,SH 
,SA,SN,SG.SE,SSPC.SS,SU.SB,S 
J , SE, SC, ST, SS . DOWN , LEFT 15 , CT 
6 J (CTB] " 

OF 350 PRINT" (D0WN7,SN,S0.ST.SE 
J: MAX OF 12 CHARACTERS .( SP] L 
EASE PRESS":NB-0:NC-0 

79 360 PRINT"(RIGHT9,SR,SE,ST.S 
U.SR.SN] AFTER ENTRY." 

47 370 PRINT"[RIGHT11.CP6]" 

03 380 PRINT" [RIGHT10, CM) 

I CH, DOWN , LEFTS , CM I [ SC , SR . SS 

,SR| [CG. DOWN. LEFTS, CM | 

ICGJ" 

A3 390 PRINT" [RIGHT11 ,CY6] " 

FB 400 PRINT"[UP3.RIGHT6JUSE[RI 

GHT10 ] FOR A SPACE! " 
BD 410 INPUT" [D0WN4.SW] HAT IS S 

UBJECT'S NAME ";NA$ 
A5 420 NA-LEN(NA$) : IFNA>12THEN3 

40 

3C 430 I FNA-1 1THENNC-1 :GOT0470 
66 440 NB-INT(fl2-NA)/2) 
8C 450 NC'NB: IFNA+NB4N012THENN 
B-NB-1 

BB 460 NC-NB : I FNA4NB+NC< 1 2THENN 
B-NB+1 

78 470 PRINT" [D0WN4 , RIGHT6 ) I S T 

HE NAME CORRECT (Y/N)?" 
EC 480 GETQU$:IFQUS-""THEN480 
A2 490 IFQU$-"N"THEN340 
71 500 IFQU$~"Y"THEN520 
C2 510 GOT0480 

57 520 NB$-"":FORA=1TONB:NB$-NB 

$*" [RIGHT] " :NEXTA 
E7 530 NCS-"" :F0RA--1T0NC:NC$-NC 

$+" [RIGHT] " :NEXTA 
D8 540 CH$(SU)-NBJ+NAS+NC$ 
AO 550 NB(SU)-NB:NC(SU)=NC 
83 560 PRINT" [CLR, RIGHT12.SC, SH 

, SA , SN . SG . SE , SSPC . SS . SU , SB , S 

J , SE . SC , ST , SS , DOWN , LEFT 15 , CT 

6] ICT8]" 
46 570 PRINT" [D0WN2,ST]HE SUBJE 

CTS ARE:-" 
99 580 FORT-1T016 
41 590 PRINT" f RIGHT15 ] " ;T; " [LEF 



T] . lRlGHTl";CH$m 
2C 600 NEXTT 

DF 610 PRINT" (WHITE, RIGHT15] "T" 

[LEFT] . (RtGHT4]FINISH AMMEND 

ING [YELLOW] " 
33 620 PRINT" [DOWN. SW]HAT IS YO 

UR CHOICE ?" 
4A 630 INPUT" [UP . RIGHT20 J " ;OP 
72 640 IFOP<10ROP>17THEN560 
D8 650 IF0P-17 THEN670 
DD 660 SU»OP:GOTO270 
2D 670 PRINT" (UP] ARE YOU SURE Y 

OU HAVE FINISHED (Y/N)?" 
47 680 GETQU$:IFQU$-""THEN680 
41 690 IFQU$«"N"THEN560 
FC 700 IFQU$-"Y"THEN720 
7F 710 GOTO680 

85 720 OPEN2,8,2,"@0:BUDGET SUB 

JECTS.S.W" 
F7 730 FORT-1T016 
CE 740 PRINTt2.CH$(T) 
63 750 PRINT#2.NB(T) 
62 760 PRINT#2.NC(T) 
B3 770 NEXTT: CLOSE2 
8F 780 END 



PROGRAM: BUDGET END 



E9 100 OPEN2.8,2,"0:BUDGET DATA 

2,S,R" 
FB 110 FORTY-1T0192 
65 120 INPUT#2.Y$(TY) 
E9 130 INPUT#2, Y(TY) 
3B 140 NEXTTY 
B3 150 F0RTY-1T0192 
9A 160 INPUT#2.H$(TY) 
72 170 INPUT*2.H(TY) 
D3 180 NEXTTY 
F7 190 INPUT#2.GT$ 
OC 200 FORTY-1T012 
32 210 INPUT#2.YM$(TY) 
CE 220 INPUT»2.YM(TY) 
El 230 NEXTTY 
44 240 F0RTY-1T012 
e9 250 INPUT#2.HM$(TY) 
F6 260 INPUT#2.HM(TY) 
BS 270 NEXTTY 
01 280 F0RTY-1T016 
OD 290 INPUTt2.YS$(TY) 
Fl 300 INPUT#2, YS(TY) 
50 310 NEXTTY 
79 320 F0RTY-1T016 
18 330 INPUT*2.HS$(TY) 
58 340 INPUT#2.HS(TYI 
77 350 NEXTTY : CLOSE2 : AI-STRI ( CM 

44) :AC$-RIGHT$(A*.2) 
D5 360 LA$-"":LBS-" ":LC*- M ": 

LD$ n " ":LES-"(SPC41 ":PE$-" 

ACTUAL ":PE-1 
A6 370 LFS-" [CT39I " :LK$-" (RIGHT 

]":SMS-"SUB [SM] MONTH [RIGHT 

J " 

2 1 380 ST$ - "SUBT" : MT$- "MONTHLY 

TOT I RIGHT! ":MI-12 
64 390 IFAM-0THEN470 
OD 400 PRINT" (CLR.D0WN4. RIGHT2] 

YOU HAVE AMENDED SOME FIGURE 

S IN THE" 
31 410 PRINT" (DOWN. RIGHT3J PROGR 

AM . DO YOU WISH TO STORE TH 

EM " 

3A 420 PRINT" [DOWN. RIGHT12! (Y)E 

S OR (N)0 ?" 
AD 430 GETQU$: IFQU$-""THEN430 
FA 440 I FQU$* "N'THENPRI NT" ) DOWN 
2 J ARE YOU SURE YOU DO NOT WA 
NT TOO (Y/NI ?":GOTO530 
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44 450 IFQU$="Y"THEN480 
7B 460 GOTO430 
D3 470 GOT0760 

26 480 PRINT" (D0WN3.SPC31 PLACE' 
DATA'DISC IN THE DISC DRIVE" 

29 490 PRINT" (DOWN. RIGHT3JPRESS 
[RVSONI SPACE BAR [RVSOFF1 





TO 


SAVE THE DATA" 


01 


500 


GETQUS: IFQU$-" "THEN500 


OA 


510 


IFQU$<>" "THEN500 


Al 


520 


PRINT" (CLR,D0WN12,RIGHT1 




0) SAVING BUDGET DATA (BLACK 




1 ": 


GOTO560 


Fl 


530 


GETQUS: IFQUS-"N"THEN400 


1C 


540 


IFQUS-"Y"THEN470 


15 


550 


GOT0530 


74 


560 


OPEN 2 .8,2. "@0 : BUDGET DAT 




A.S.W" 


IF 


570 


PRINT#2.SR 


32 


580 


PRINT#2.CM 


Dl 


590 


FORA-1T0192 


A5 


600 PRINT#2. Y$(A) 




610 


NEXTA:FORA-1T0192:PRINT* 




2, HI (A) :NEXT:F0RA-1T012 


6B 


620 


PRINT#2.SRt (A) 


26 


630 


PRINT#2,SS$(A) 


4A 


640 


PRINT#2.SU$(A) 


6F 


650 


NEXT A 


DF 


660 


F0RB=1T016 


2E 


670 


PRINT#2.BA$(B) 


2F 


680 


PRINT#2,BB$(B) 


5C 


690 


PRINT»2,BC$(B) 


IE 


700 


NEXT B 


22 


710 


PRINT#2.GT(1) 


02 


720 


PRINT«2.GTI2) 


57 


730 


PRINT#2.GT(3> 


54 


740 


CLOSE 2 


E9 


750 


PRINT" (YELLOW] " :G0T0470 


24 


760 


PR I NT" ( CLR . R I GHT1 4 1 BUDGE 




T CALC ( DOWN . LEFT1 1 . CT6 J [CT4 
i " 


63 


770 


PR I NT" f DOWN] PRINT OUT:-" 




:PRINT" [SPC36.C@4] "; 


78 


780 


PRINT"ACTUAL FIGURES 










(RVSOFF] " 


CB 


790 


PRINT" [SPC36 . C04J " : 



43 800 PRI NT"ACTUAL & ESTIMATED 

FIGURES (RVSONI F3 

[RVSOFF I M 
2F 810 PRINT"[SPC36,C§4]" : 
AE 820 PRINT-ESTIMATED FIGURES 
ONLY (RVSONI F5 

( RVSOFF 1 " 
A3 830 PR I NT" f SPC36 . C@4 1 " ; 
39 840 PRINT-RETURN TO THE SPRE 
ADSHEET (RVSONI F7 

(RVSOFF) " 

A2 850 PRINT:PRINT"ISPC37,C©3J" 

; 

CE 860 PRINT"END BUDGET CALC... 

I RVSONI - 

[RVSOFF J " 
F5 870 PRINT" [DOWN21WHAT IS YOU 
R OPTION?" 

88 880 GETQXJ: IFQX$-""THEN880 

3B 890. IFQX$-"(F7)"THENPRINT"(U 

P. SPC 14 ] PLEASE WAIT":LO-l:LO 

AD "BUDGET CALC". 8,1 
C8 900 FORTY-1T0192 : IFVAH Y$ (TY 

) K >Y{TY) THENYJ (TY) -" (RIGHT) 

000":Y(TY) -0 : NEXTTY 
5E 910 F0RTY=1T0192: IFVAL(H$(TY 

) X >H(TY)THENH$(TY) -" [RIGHT! 

000":H(TY)-0:NEXTTY 

89 920 IFOXS-'V-THENPRINT-'ECLR) 
":GOTO1110 

68 930 IFQX$-"!F1]"0RQX$~"[F3)'* 

ORQXS-" [F5) "THEN950 
96 940 GOTO880 
8E 950 GOTO970 
43 960 END 



14 970 PRINT" [D0WN2.RIGHT2IPLEA 
SE SET UP PAPER FEED AND TUR 
N ON" 

53 980 PRINT" (DOWN. SPC14JTHE PR 
INTER! " 

71 990 FORTP-lTO2000:NEXTTP 

E7 1000 FORT-1T02000:NEXT:PRINT 

" [DOWN2. RIGHTS [PRESS ANY KEY 
TO CONTINUE" 
52 1010 GET QU$: IFQU$-""THEN101 

0 

CA 1020 PRINT"(UP,SPC37,UP)" 
OC 1030 OPEN3.4:PRINT#3: IFST— 1 

28THEN1050 
EO 1040 CLOSE3:GOT01180 
44 1050 CL0SE3:PRINT"(CLR,SPC4) 

BUDGE TISPC4IP R O G R A 
M M E" 

El 1060 PRINT" [RIGHT4 . SE11 . RIGH 

T4.SE17] " 
02 1070 PR I NT" ( DOWN 1 0 1 PLEASE TU 

RN ON THE PRINTER IF YOU WAN 

T" 

C5 1080 PRINT"[D0WN.RIGHT4)A PR 
INTOUT AND PRESS "SPACE BAR' 

FE 1090 PRINT" [DOWN. RIGHT11JOR 

ANY OTHER TO END" 
Dl 1100 GETWQJ: IFWQ$-""THEN1100 

6F 1110 PRINT"JCLR.SPC4)B U D G 
E TISPC41P R 0 G R A M M E" 

7D 1120 PRINT" [RIGHT4.SEU. RIGH 
T4.SE17) " 

2A 1130 PRINT"[D0WN5.RIGHT4.C@7 
1 [C@5.SPC7.C@,SPC3.C@]" 

23 1140 PRINT"'(RIGHT4,RVS0N]SYS 
TENS [ R I GHTI RESET I RVSOFF J ? [S 
PC3J ( (RVSONI Y [RVSOFF] / (RV 
SON] N [ RVSOFF] )" 

38 1150 GETQAS: IFQA$-""THEN1150 

81 1160 IFQAJ-"Y"THENSYS64738 

9B 1170 GOTO390 

83 1180 1FQX$-"(F5] "THEN1440 
9E 1190 IFQX$="[F3]"THEN1660 

84 1200 IFQX$-"[F1)"THEN1210 
CB 1210 FORTY-1T0192 

99 1220 IFYS(TY)-" [RIGHT] 000"TH 

ENY$(TY)-"(SPC3)" 
FD 1230 NEXTTY 

AO 1240 F0RZZ-1T016:SI(ZZ)-MIDS 
(J$(ZZ) ,1.13) :NEXTZZ 

7D 1250 0PEN3.4:PRINT#3.CHR$(14 
) " 1 SPC4 ] BUDGET PLAN FOR"CM+3 
;"/";AC$;CHR$(15);" (ACTUAL) 

1A 1260 PRINTt3.":";CHR$<14) :MZ 

$;CHR$(15) :CMD3 

BO 1270 PRINT" (CLR) " ; SM$; " (SPC3 

)";M$(1) ; " ":M$<2):" ":M$( 

3);" ":M$(4) ; " ";M$(5) ; " 
ii . 

OC 1280 PRINTMS(6):" ";M$(7);" 

":M$<8>:" ":M$<9) : " " ; Ml 

(10):" "M$(ll) ; " " ; 
14 1290 PRINTM$(12) :"(SPC3]":ST 

$ 

13 1300 PRINT" [C@65 ] " ; 

61 1310 PRINT"[C@14)":PRINT 

2E 1320 F— ll:F0RSnlT016:F-F*12 

:NB(S)-NB(S)»1 
26 1330 PRINTSJ(S) ; :FORSP-1TO(N 

B(S) +NC(S) ) :PRINT" " ; : NEXTSP 
:PRINT" "; : FORPO-FTOF+l 1 
6F 1340 PRINTYI (PO) : " " ; 
80 1350 NEXTPO:PRINT" ":YS$(S): 

PRINT: NEXTS 
45 1360 GOTO1370 
OD 1370 PRINT" [C©66] "; 
4B 1380 PRINT" ICQ13] " :PRINT 

14 1390 PRINTMT$;LB$: :FORPO-1TO 



11:PRINTYM$(P0) :" ";:NEXTPO: 

PRINTYM$(12I ; 
66 1400 PRINTCHR$(14)GT$ 
F4 1410 PRINTCHRS ( 15) 
95 1420 PRINT#3:CLOSE3 
AC 1430 GOT0390 
C2 1440 FORTY-1T0192 
B6 1450 IFH$(TY)-"(RIGHT]000"TH 

ENH$(TY)-"(SPC3] " 
D6 1460 NEXTTY 

D5 1470 F0RZZ"1T016:S$(ZZ)-MID$ 
(JS(ZZ) .1,13) :NEXTZZ 

E5 1480 OPEN3.4:PRINT#3.CHR$(14 
)" BUDGET PLAN FOR"CM+3; "/" 
;AC$;CHR${15) "( ESTIMATED >" 

A9 1490 PRINT#3.CHR$( 14) ; " :";M 
ZI;CHR$(15) :CMD3 

03 1500 PRINT" (CLR) ";SM$; ■' ISPC3 
]":M$(1);" ";M$(2) : " ";M$( 
3);" ":MJ(4) ; " ";M$(5) : " 

1A 1510 PRINTMSC6) : " ";M$(7);" 

" :M$(8) ; " ";MJ (9) ; " ";M$ 

(10);" "H$(ll);" "; 
EE 1520 PR I NTM$ (12) : " [ SPC3 ] " ; ST 

$ 

75 1530 PRINT" (C@65| " : 

48 1540 PRINT" [C@141": PRINT 

25 1550 F--1 1 :F0RS-1T016 :F-F+12 
:NB(S)-NB(S)+1 

E7 1560 PRINTS* (S) : :F0RSP-1T0(N 
B(S)+NC(S)> :PRINT" ";:NEXTSP 
:PRINTLA$; : FORPO-FTOFi 1 1 : PRI 
NTH$(PO);" "; 

D2 1570 NEXTPO:PRINT" ";HS$(S): 
PR I NT: NEXTS 

22 1580 GOTO1590 

60 1590 PRINT" [C@66] "j 

26 1600 PRINT" [Cai3] - : pRINT 

26 1610 PRINTMTS ; " ";LB$; :FORPO 

-1T011 :PRINTHMS(PO) ; " ";:NEX 

TPO:PRINTHM$(12) : 
BB 1620 PRINTCHR$(14)GH$ 
51 1630 PRINTCHRS 1 15) 
80 1640 PRINT*3:CLOSE3 
4E 1650 G0TO760 
EF 1660 FORTY-1T0192 
93 1670 IFH$(TY)-" [RIGHT! OOO'TH 

ENH$(TY)-"]SPC3]" 
IB 1680 IFYS(TY)-" [RIGHT] OOO'TH 

ENY$(TY)-"[SPC3J" 
2F 1690 NEXTTY 

AA 1700 F0RZZ-1T016:S$(ZZ)-MID$ 
(J$IZZ) .1.13) :NEXTZZ 

A8 1710 0PEN3,4:PRINT#3.CHR$(14 
)" BUDGET PLAN F0R"CM+3; "/": 
ACJ;CHR$U5) " ( ACTUAL/ESTI ) 

8C 1720 PRINT#3.CHRS(14) ;" :" : M 
ZI;CHR$(15) :CMD3 

D2 1730 PRINT" [CLR] ":SM$: " [SPC3 
]":M$(1);" ";M$|2);" ";M$( 
3) ;" ";M$(4) :" ":M$(5) :" 

* 

49 1740 PRINTMI (6) ; " ";MJ(7);" 

";MS(8) : " ";M$(9) ; " ";M$ 
(10):" "HS(ll);" "; 

85 1750 PRINTMI(12);"(SPC3]";ST 
$ 

1C 1760 PRINT"(C@65|" ; 

42 1770 PRINT"[C@14] ":PRINT 

86 1780 F--11:FORS=1T016:F-F+12 
:NB(S)»NB(S)+1:PRINT 

BF 1790 PRINTSJ(S) ; :F0RSP-1T0(N 
B(S)+NC(S) ) :PRINT" ";:NEXTSP 
:PRINTL8$; : FORPO-FTOF+ 1 1 : PR I 
NTY$(PO);" "j 
3E 1800 NEXTPO:PRINT" ":YS$(S) 
11 1810 PRINT" [SPC14] " ; :FORRO-F 
TOF*ll:PRINTH$(RO) ;" " ; : NEX 
TROrPRINT" " : HSJ (S) : NEXTS 
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26 1820 GOTO1830 

6F 1830 PRINT"|C@66] "j 

15 1840 PRINT" IC013] ": PRINT 

69 1850 PR I NTMTS ; " " ; LBS ; i FORPO 

-1T011 :PRINTYMHPO> ;" ";:NEX 

TPO:PRINTYM$(12) ; 
28 1860 PRINTCHR$U4)GT$ 
02 1870 PRINTCHR$(15) 
•IF 1880 PR1NT"|SPC121";LB$; :FOR 

P0-1T011:PR1NTHM$(P0);" "::N 

EXTP0:PR1NTHHSI12) : 
B6 1890 PRINTCHR$(14)GH$ 
28 1900 PRINTCHR$(15) 
Fl 1910 PRINT#3;CLOSE3 
A3 1920 GOTO760 



PROGRAM: CHANGE MONTHS 



FD 100 REM *****CHANGE MONTH* * * 
** 

21 110 POKE53280.9:POKE53281.9: 

P0KE646 . 7 : PRI NTCHRS ( 14) 
FC 120 DIMM* (20) 

7C 130 PRINT" [CLR, RIGHT13.SC. SH 
.SA.SN.SG.SE.SSPC.SM.SO.SN.S 
T. SH. SS . DOWN . LEFT 1 3 . CT6 1 [ CT 
6] " 

17 140 PR1NT"(D0WN3,RIGHT2.SE)A 
CH USER OF A BUDGET PROGRAM 
WILL " 

FC 150 PRINT" 1 DOWN. R I GHT21 HAVE 



DIFFERENT FINANCIAL YEARS FR 
OM »' 

73 160 PRINT" [DOWN, RIGHT2 I WHICH 
FIGURES WILL RELATE TO.fSIl 
T IS " 

C8 170 PRINT" [DOWN, RIGHT2 ) POSSI 
BLE TO CHANGE THE MONTHS JUS 
T " 

84 180 PRINT" (DOWN, RIGHT21 LIKE 

THE SUBJECTS, IN BUDGET CALC 

n 

67 190 PRINT"[DOWN.RIGHT2,ST]HI 
S PROGRAM ALLOWS THE USER TO 

II 

14 200 PRINT" [DOWN. R I GHT2) CHANG 

E THEM ." 
54 210 PRINT' , [D0WN4,R1GHT5) [SP 

,SR,SE,SS21 ISA.SN.SYI [SK,S 

E.SY1 TO CONTINUE" 
21 220 GETAS : I FAS-" "THEN220 
E6 230 PRINT" [CLR.RIGHT13, SCSI! 

.SA.SN.SG.SE. SSPC . SM . SO . SN . S 

T, SH, SS . DOWN , LEFT1 3 . CT6 ) I CT 

61": RESTORE 
8F 240 PRINT" [DOWN . RIGHT21THE M 

ONTHS ARE [RIGHT9 . SSI ELECT T 

HE NO." 

C7 250 PRINT" [RIGHT2I IN THE ORD 
ER IRIGHT13J OF THE MONTH [ DOWN 
J" 

2F 260 OPEN2.8. 2. "0: BUDGET MONT 

HS.S.R" 
64 270 FORT-1T012 



E6 280 INPUTt2.M$[T> :PRINT"[RIG 
HT4]"M$(T) ; : READAS .-PRINT" { R I 
GHT19J"T ; " — " ; A$ 

5D 290 NEXTT:CLOSE2 

16 300 PRINT" [DOWN. RIGHT2JWHICH 
MONTH DOES THE FINANCIAL YE 
AR" 

E7 310 PRINT" [RIGHT15JSTART " 
53 320 INPUT" [DOWN. RIGHT13I ( 1 T 

O 12) ";MO 
30 330 IFMO<10RMO>12THEN230 
D9 340 RESTORE 

A3 350 FORMR-lTOMO-l : READ AS :NE 
XTMR 

OE 360 OPEN2.8,2, , '@0:BUDGET MON 
THS.S.W" 

9B 370 READAI : IFA$-"END"THEN390 

A9 380 PRINT#2,A$:GOTO370 

4E 390 RESTORE :FORMR-lTOMO-l : RE 

AD AS:PRINT#2.A$:NEXTMR 
2B 400 PRINTt2.MO 
6D 410 CLOSE 2 

F9 420 DATA" (RIGHT) JAN(RIGHT) ", 
" [RIGHT! FEB (RIGHT) " . " ( RIGHT) 
MAR (RIGHT) " . " [RIGHT) APR (RI GH 
T) " , " [RIGHT) MAY [RIGHT) ", " [RI 
GHT) JUN [ RIGHTJ " . " (RIGHT) JUL[ 
RIGHT) " , " [RIGHT) AUG [RIGHT) " , 
" [RIGHT) SEP [RIGHT) " 

D2 430 DATA" (RI GHT1 OCT (RI GHT) " , 
" I R I GHT 1 NO V ( R I GHT ) " , " [ R I GHT ) 
DECfRIGHT) " . "END" 
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Repairs 
Guide 

CALL 
JON WATSON 
O N 

01—437 0699 




PROBLEMS WITH YOUR 
COMMODORE? 

FOR FAST, RELIABLE AND 
PROFESSIONAL REPAIRS AT 
COMPETITIVE PRICES 
PMENGINEERING 

UNIT 8, NEW ROAD, ST. IVES, wp=m 
CAMBRIDGESHIRE. PE17 - 4BG HJ 

ST. IVES (0480) 61394 



COMMODORE REPAIRS 

(with FREE extended guarantee) 
COMMODORE 64 26.70 
COMMODORE C16/-4 19.70 
VIC 20 18.70 
D/DRIVES, PRINTERS etc POA 
Price is all inclusive and we guarantee 

the whole computer for six months. 

KPR MICRO, DEPT. YC 

34. Petunia Crescent, Springfield. 
Chelmsford, Essex CM1 5YP 
Tel. 0245 - 468554 



COMPUTER REPAIRS 

Fast and Professional Repair 
Service in the South East! 
Repairs to most makes of micros 

and peripherals. 
Amstrad approved service centre 
Three month warranty on all work 

MICRO COMPUTER REPAIR 
SERVICES 

47 Mungo Park Way, Orpington. Kent 
Tel. Orpington (0689) 73353 any time 



MFB COMPUTERS 



Fast Computer Repair Service 
For All Leading Makes of Personal 
Computers. 



Commodore 64 
Commodce C16 
Vic20C-4 
Commodore PSU'S 
BBC'S 
Electrons 
Amstrad CPC 464 
Aliai Commodore c< 



trom £25 Inc. 
E1B.9S inc. 
from £19.95 Inc. 

£22.50 inc. 
(rom £29.95 inc. 
trom £19.95 Inc. 
£32 inc. 

mpatiDle cassette deck 

£29.95 inc. 



14 VICTORIA ROAD, ELL AN D 
W. YORKS TEL. 0422 76698 



co^oSPECIALIST COMMODORE REPAIRS £2om 

»!^::::::::— 

CBM Modem HJS 

Commodore C16 

Commodore +4 52 rr 

Commodore 128 £30 00 

Se"pK Ca ' riedOU,US ^ Thisen 3 u.W a \asieaepa,r.o , y o U .comp 1 , 1 e;o- 
1 SSSiSmS^ ° een ,eC '" ied *** ' ini " ,M ' W " h ch « ksum ""flnostica to ensure any new components fitted 
There is no, extra charge (Or posting All prices fully inclusive. (No H-dden Extras) 

>mputers and Peripherals repaired on request Don't hesitate to phone 

I. Bateman Specialist Computer Repairs 
Telephone: Corby (0536) 69454 24 hour answering service 



Other Commodore Home 




COMMODORE SPARES 
AND REPAIRS 

906114-01 £8 95 

6510 £9.95 

6526 CIA £9.50 

6581 SID £11.75 

901227-03 £8.25 * tSa& j 

901226-01 tt0.75AAG!IC M 

901225-01 £7.95VlilMN fl 1 

8501 £7.75 Ui 

INCL VAT & P8.P 

14 RIDGEWAY ROAD, SALISBURY. 
WILTSHIRE, SP1 3BU 
TELEPHONE (0722) 335061 



CROYDON COMPUTER 
CENTRE 



29 Brigstock Road, Thornton Heath. 
Surrey, CR4 7JJ Tel: 01 683 2646 



COMPUTER SERVICING 



(Esl d since 1979) 

We repair — on the premises — quick 
turnround 

* Commodore & Spectrum 

* BBC 8 Electron (Approved Service Centre) 

* Amstrad 8 Torch (Approved Service Centre) 

* Disc Drives, Printers. Monitors 
Mail Orders by phone Access & Visa accepted 




FIRST AID 
FOR 
TECHNOLOGY 



Computer repairs 

Fixed Super Low Prices/ 

Inclusive of parts, labour and VAT fib ^ 

1 week turnaround Collection/delivery available for local area 
* SUPER OFFERS ★ 

SPFCTRUM £14 inc. • Free Game 

C64 £22 Inc. * Free Game 

C16 C18 Inc. 

VIC20, C*4 £22 Inc. SPECTRUM 128 

BBC £32 Inc. C64 P.S.U. tor sale £20 inc. 

Please enclose payment wilh item - 3 month warranty on repair Please enclose advert with repair 

W.T.S. ELECTRONICS 

5-9 Portland Road, Luton. Beds LU4 8AT. Tel: 0582 458375. Telex: 265871 



ELECTRON 
AMSTRAD 464 



£19 inc. 
£32 Inc. 
- Free Game 
£16 Inc. 




BUSINESS SYSTEMS 

AMSTRAD- APPLE - ATAfl 



BBC- COMMODORE- IBM PC s 
QLs-SEIKOSHA 



HOME COMPUTERS 

OSBORNE • EPSON - SINCLAIR SPECTRUM 



COMPUTERS 



FLOPPY DISKS - PRINTERS UPGRADES - MODIFICATIONS - FIELD SERVICE 
■ • * ■ > 

For further dete.ls phone 
SLOUGH 21391 or contact 

¥ TRIDENT ENTERPRISES LTD 
Unit? Wwrtworth lndu.trt.1 Court Goodwin Ro.d. Britwall 
SlouflK. Be*.. SL2 2ER. 



HEATH COMPUTERS 

& ELECTRONICS LTD. 

We specialise in Commodore 
Repairs 
Also BBC's 

* FAST TURNAROUND * 
* FIXED PRICE REPAIRS * 
* * ALSO SELL SPARES * * 

Tel: Birmingham (021) 771 3636 



Repairs 
Guide 

CALL 
JON WATSON 
O N 

01—437 0699 



Scottish Computer Repair Centre 



FIRST CLASS REPAIRS AT FIXED PRICES 

C64. £26 SPECTRUM. .£16 AMSTRAD CPC...POA 
C16 £20 VIC 20/04 ..£22 ELECTRON BBC etc POA 
PRINTERS. MODEMS. TV'S. VDU'S . POA 

Pick up & delivery service throughout Central Scotland 
3 Month Guarantee on all repairs. 

Enclose payment with order to: S C R C 

Unit 26A 

Hawkslaw Trad. Est. 
Leven, Fife. KY8 4LT 
TRADE & COMMERCIAL ENQUIRIES WELCOME Tel: 0333 2148' 



FAST COMPUTER 
REPAIR CENTRE — 
LONDON 

* Commodore. BBC Micro 
Spectrum. Amstrad. Atari. IBM • 
Others 

* We sell a wide range ot spares 
PHONE 01-863 7166 

PROMPT ELECTRONICS 
Unit 4. 15 Sprlngtield Road, 
Harrow, Middx. HA5 1QF 

Entrance <<> Ameisham Road 



p The Directors and Stall of 
ANALYTICAL ENGINEERING 
LTD 

wish all their customers, old and new 
a Merry Xmas and a happy new year, 
and look forward to 
their continued 
support in 1988 




ANALYTICAL ENGINEERING LTD 

Analytic House. Grainger Road Ind. esl., 
Southend on Sea. Essex SS2 5DD 
Tel: (0702) 618455/527864/613741 



COMPUTER REPAIRS 



SPECTRUM. COMMODORE. AMSTRAD. 
ACORN. BBC etc 

Fixed charge repairs on all makes 
Please ring for details: 

MCE SERVICES 

33 Albert Street, 
Mansfield, Notts NG18 1EA 
Tel: 0623 653512 



YOUR COMMODORE 



Lineage: 54p per word. T"% mmm 

(Including VAT) mam 
Semi display: £11.73 per single column centimetre 
(including VAT) minimum 2cm. Ring fdr information on 
series bookings/discounts. 

All advertisements in this section must be prepaid. 
Advertisements are accepted subject to the terms and conditions 
printed on the advertisement rate card (available on request). 
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01-437 0699 



Send your requirements to: 
JON WATSON 

ASP LTD, 1 GOLDEN SQUARE, 
LONDON W1 



SPECIAL OFFERS 



SERVICES 



C64 & +4 POWER 

SUPPLIES 

In stock £17.50 
inc. P&P. 
Cheque/P.O. to:- 
W.E. 
High House 
Preston-On-Wye, 
Hereford, 
HR2 9JU 



COPY 
DEADLINES 



FEBRUARY 
issue 23rd NOV 

MARCH 

issue 21st DEC 

APRIL 
issue 26th JAN 



DISCOUNT SOFTWARE: Laiest 
lilies (or CBM64/128 at 75% ott 

R.R.P: S.AE. To: A.O.W. I04 
Hollywell Road, Lincoln. LN5 9BY 



HARDWARE 



TAPE BACK-UP 
BOARDS 

FOR CBM-64-128 & VIC 20 

Tfte Mk.l uaea a second CBM type 
cassette deck lo copy a program as it 
loads. Very easy to use. 
£8.95 inc. PSP 
NEW IMPROVEO Mk.2. has a built In 
speaker so you can hear your copy 
being mad© Works like the Mk.v or 
can be switched to use our 
GENERATOR software method. 
£14.00 Inc. P4P 
ROM/SWITCH RESET BOARD rest-ts 
ALL programs that a standard switch 
can't Also has a socket for an 8K 
Ep'om Full instructions supplied. 
£6.00 Inc. P&P 

AH products guaranteed tor rtmonths 

Send your cheo.ue/P.0 or stamp for 

details to • TURBOTRONIC. 
46. Rippon Street. Parkinson Lane. 
HALIFAX. West- Yorkshire. HXi 3UG 
Tel (0422) 52020. 



128 USERS CLUB 



* International PenPal List * Quarterly Magazine 

* Public Domain Software * Software Data Base 

For More Details Write to> 
Brampton, Croome Road. Defford. Worcs. WR89AR 



LANGUAGE 



FORTH AND LISP FOR 
THE C64 AND C128 



luagesare available as 
1M Cartridges 



These lar 
161 
S-forlh ! 



LETCHWORTH SOFTWARE 

45 Swift Close. Letchworth. Herts 
SG6 4LL Tel (0462) 675305 



C16/*4 FORTH 

Metacompiler lo FIG * 79. 
Auto tape/disc Savsys. auto start 
editor. Tape or disc £24.95 

TENSAL TECHNOLOGY 
No 15 Penrice Close, WSM, Avon 
BS22 9AH 



COMMODORE 64. Need a 
printed listing of your Basic 
program? Send your Casselle or 
Disk wilh £M io Withers. 3 Beedon 
Avenue. Little Lever. Bolton. BL3 
10H 



* ELM COMPUTING * 

All the latest machines. Titles 
and Add-ons at the best 
prices. 
Enquiries welcome. 
Stock-list always available. 

always changing. 
Send SAE stating interest to: 
3C York Avenue, Cleveleys, 
Lancashire FY5 2UG 
or phone notOne 0?53 852 882 



FOR SALE 

* 



Commodore 128 Software Offer. 



Systems Software (Oxford) Ltd. 

Hackpack. PetSpeed and Pascal £18.95 each 

CAD Pack. Chart Pack an^Cobr?"* 8 ™ £29.95 each 

Super C £39.95 

Precision Software Ltd. 

Superscript and Superbase £39.95 each 

Disc Utilities Pack £8.95 

The Big Blue Reader . . £29.95 

New C128 & C64 800K, 3 1/2 ' Disc Drives write 

Send Cheque/Postal Order or write tor more information to:- 

Financial Systems Software 

Second Floor, Anbrian House, St. Marys Street, Worcester, 

WR1 1HA. 

( Overseas orders please add 2.50. Please allow up to 14 days for 
delivery) All prices include VAT and Postage and Packing. 
Callers Welcome 
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TEST/DEVELOP YOUR 
MENTAL SKILLS 



MIND EXPANDERS 



Improve your powers of 
deduction with REAL 
BATTLESHIPS 
Try your skill as an organiser in 

the HANOI PANIC 
Test your concentration around 
the INVISIBLE MAZE 



Tape £3.45 SENIOR GAMES 
Disk £3.95 12 St. Bartholomews 
EACH Close. Kettering 
C.W.O. Norlhants NN15 5EF 



DO YOU OWN A HOME 
MICRO? Do you want something 
more than the usual boring game? 
This is most certainly lor you. Don't 
just play at life, become part ol it by 
starling your own home based 
business Full or part-lime For 
FREE details s.a.e to:. Mr. G. 
McGovern YC15 97. Pilton Place. 
King and Queen Street. Walworth, 
London SEI7 1DR. 



AMIGA 
PUBLIC DOMAIN SOFTWARE 

We nave me very latesi Fnhfli io# 102 
andAiucus.i#totf2?.di&ks>nslocK For 
full details of programs content PLUS 
Tuiculal PD wanooi Tears' PLUS me 
JUMPOISK Magscan PLUSe COllechon ol 
programs and articles from previous issue 
ol JUMOISK Please send a £3 SO 
cheque; PO tor me JUMPOISK OEMO 
We will send a copy by return 

George Thompson Services, 

Drppen Lodge. Dippen Brodick. 
Arran. KA27 BRN Scotland 
Tel 077 082 234 



LOOK OUT FOR 
COMMODORE 
DISK USER. 




01-437 0699 
= RESULTS 



large (100 disk capacity) 
disk storage box lockable 
worth £13.9$ - 

- When you buy 25disks 
for only £18.75 (inc. VAT & 
P/P OR 50 disks for only 
£23.95 inc. Fuji SV 2 " D.S. 
Disks 

Nebulae. Dopl MA f REE POST, Kilroot 
Par* inousinai Estates. C*mc*<*rqos. Co 
Antnm BT3$7ee TEL <O96Q3>$l02O 



CROSSWORD Companion 
Commodore 64 Disk Program + 
18600 W vocabulary £t0. 
Cheques, P.O. s to John Tuiley, 71 
Town Lane. Mobberley. Cheshire. 
WA16 7HH 



RING 
JON WATSON 
EXT. 281 FOR 
DETAILS 



BIG SCREEN T.V. 

for only £15 

* Play your games lite-size. 

* Simple to build projector 

* Can be built in 1/2 hour trom 
everyday materials. 

* Fits over existing TV/Monitor. 

* Contains lens & easy-to-follow 
instructions 

* Flight Simulation, 3-D games, 
even ordinary TV will never be 
the same again. 

Send cheques/P.O.s for £15 (+ 

30p P.P) to M Robson. 
61 Maytair Road, West Jesmond, 
Newcastle upon Tyne. NE2 3DN 

For more Oeiaris phono 091 231 700B 



NEOS? 

YOU NEED THE MOUSE PLUS 

Enables you to use the mouse and keyboards together. 
Can be left connected all the time - includes a disc 
containing the mouse menu, Amiga style pull down 
menus while you programme. Two mouse drivers for your 
own programmes and D cheese mod. Full manual 
supplied. Let your C64 use the whole power of the mouse. 
Does not damage the keyboard. 

Send £19.95 to: or phone for more details 

Shazaan Systems 

8 Aim Close, Knap Hill, Woking, Surrey. Tel: 04867 89098 



BUSINESS 
OPPORTUNITIES 



IDEAS, INVENTIONS Wanted 
Call I S C. 01 434 1272 or write; 
Dept (ASP) 99 Regent St. London 
W1. 



AMIGA 



TO ADVERTISE IN 
YOUR COMMODORE 
RING 01 437 0626 



TRIANGLE TELEVISION 
The Amiga Specialists 



• FOR ALL YOUR VIDEO AND AUDIO 
VISUAL REQUIREMENTS 

■ A500 AND A2000 

• FULL RANGE OF PERIPHERALS 

• FULL RANGE OF SOFTWARE 

• RGB CONVERTERS 

- TRAINING COURSES 

• COMPUTER GRAPHICS 
DESIGNED TO ORDER 

mm TRIANGLE TELEVISION 
«M 130 Brook «OOd Rd 

London SW18 5DO |TrH 01 -874 3418 



DIGITAL SHADES LTD 



★ Atari ST Special Offer! 
Atari 520 STFM plus starter kit 
Now ONLY £250.00 
Amiga A500 plus starter kit 
and modulator £499. 00 

Mail order hotline 
(01)471 7969 

9 Selsdon Road, Upton Park 
London E1 3 9BY 



GLASGOW COMPUTER 
CENTRE 

Commodore Amiga Specialists 
Amiga A500 Hardware and Software always in stock 

ALSO 

AMIGA A500 RAM UPGRADES only £90 inc. VAT 

£65 when purchased with machine. 
We have now moved to larger premises at: 
GLASGOW COMPUTER CENTRE, 122 WEST NILE 
STREET, GLASGOW. G2 PHONE: 041 552 1522 

"Progress through Technology" 



BACK PAGE 
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An Amiga of your own 

Thank you to all our readers who 
completed and returned the Readers 
Survey forms that went out with our 
September issue. 

We are in the process of evaluating 
your views at this moment and you will 
no doubt see one or two tweaks to the 
contents of the magazine so that it 
gives you even more of what you want 
to read. 

The draw for the winner of the 
Amiga that we were giving away has 
been made and the lucky person is 
Hugh McGhce of Sheffield. 

Our congratulations to Hugh, and 
I hope that you enjoy using your new 
computer. 



OOPS! 

Unfortunatelv the listing for the 
TYPEWRITER program was 
omitted from the BYTING INTO 
THE 6510 article in our November 
1987 issue. This program is presented 
in this month's Listings section. 

Please note that the assembly 
listings presented in this series are all 
based on our own SPEEDY 
ASSEMBLER. This program is 
available, complete with manual, from 
our Readers Services department - see 
the Software for Sale pages for more 
details. 



At the Your Commodore office we receive hundreds of letters from readers every 
month. We do try and answer each individually but sometimes this is impossible 
due to pressure of work. If you have written to us and not received a personal 
reply, we apologise for this but we cannot promise to reply to every item of mail 
we receive. If you feel that your question or letter really needs an answer, then 
inclusion of an s.a.e. will guarantee a reply, although this may still take time to 
arrive. 



Puzzle Corner 



Bug Finder 

We'd like to remind our readers that 
we run a Bug Finder service. 

If you have typed in one of our 
programs and despite much checking, 
you sdll can't get it to run. then send 
us the following: 

Two copies of your program on tape or 
disk. 

A description of your problem. 

If possible a listing of your work (you 

may omit this). 

A stamped, self addressed envelope for 
return of the program to you. 

Should any of the above be missing 
then we will not be able to deal with 
your query. 

We will try to point out where you 
have made errors and place a corrected 
copy of the program back on to your 
tape or disk before we return it to you. 

Do not send a program to us as 
soon as it stops working, please check 
it several times first. 

We do get a large number of 
queries and so it may take a while for 
us to deal with yours personally. 
Note:we can only deal with problems 
relating to programs published in 
Yoru Commodore. 



Take a close look at the diagram 
accompanying this text. The diagram 
is of a standard chess board with the 
two diagonally opposite corners 
missing. 

Now, imagine that you have 31 
dominoes, each of which covers 
exactly two squares. 

Is it possible to cover the entire 
board using the dominoes? If it is 
enclose a sketch showing how you did 
it. If not give a brief explanation of 
why not. 

The first correct answer pulled out 
of the hat after the closing date of 
Thursday, 31st December 1987 will 
win a Your Commodore binder. 

Entries should be sent to: Your 
Commodore, Puzzle Corner, I Golden 
Square. London WIR 3AB. 



YOUR COMMODORE december 1987 
106 



The world 5 only 6 mode Intelligent Terminal 
Unit. Gives excellent performance on 
PACKET. AMTOR. RTTV. ASCII. CW and 
FACSIMILE, Transmit, Receive on all modes 
with tuning indicator and modem circuitry 
which automatically configures itself lor the 
mode in use. Facsimile printer cable included 
Our latest terminal software for the IBM-PC to 
operate the PK-232 has to be seen to be 
believed. FAX upgrade kit available tor early 
mOdel PK-232's. £269.00 - £4.00 PAP & Ins. 




PK-232 



Whilst many manufacturers continue to sell 
clones ol the TNC2. A.E.A. hag improved on 
the TNC2 program with several new software 
features. The Host mode of the new PK-87 
Packet Controller can be utilized to Improve 
terminal program operation. Four new 
commands in th PK-87 allow you to restrict the 
use of your station for both connects and as a 
digrpeater. The Mailbox monitoring command 
allows monitoring without displaying tho 
callsign headers. While the PK-87 can be used 
for HF operation. AEA recommends, the 
optional PM-1 packet modem tor low band 
use. In addition to standard Data Carrier 
Detect. Push to talk, Status, and Connect 
indicators, the PK-87 has front panel LEDs foe 
operational mode (Converse, Transparent. 
Coipmand) and multiple connects. £168.50 * £3.50 P4P 




PK-87 



A commercial specification, widetemporaiure 
range packet radio TNC with the following 
features: 100% Software Controllable. 
SMR/Trunked radio operation. Remote 
Control by radio. Encryption. Macro Keys. 
Password, Access, Host control language, 
Modem bypass connector, 2400 radio baud 
version. Extended lemperalure range, 
Votocoless option. £465.25 * £3.50 P&P 




PK-90 



For superbly detailed weather maps from any 
SSB reciever. Drives any Epson FX-80 
compatible dot matrix printer. Double 
screened, low noise printer cable now 
supplied as standard. Switchable RTTV 
recieve capability standard. Mobile mounting 
bracket standard. Marine installation kit and 
application note available. 

£329.95 




AT LAST! 

AN ECONOMICAL ALTERNATIVE TO THE BULKY 
EXTERNAL AMIGA DISK DRIVES 

3.5 EXTERNAL FLOPPY DISK DRIVE FOR THE COMMODORE AMIGA 




E3.S0 P&P FAX-1 



CUMANA CAX 354 

Amiga owners can now easily upgrade to twin floppy operation with the 
purchase of Cumana's high quality external 3.5 inch floppy drive. The 
Cumana CAX 354 conveniently takes its power from the host computer 
and olfers a full 88QK of formatted storage to either A500 owners or users 
of system 1 and 3 A1000 series— 

• High quality NEC 3.5 inch double sided drive mechanism 
• 1 Mb Unformatted storage capacity 

• High Reliability 
• Fast Access 

• Quiet Operation 

• Lower power consumption 
• Connector enables easy addition of 5.25" drives 

SPECIFICATIONS 

Seek time (track to track) 3ms •Settling time 15ms •Rotational Speed 300 
RPM • Data Transfer Rate 125/250 Kb per sec • Number of tracks 80 • 
Number of sides 2 



FED UP WITH PAYING HIGH PRICES 
FOR YOUR 5-25" FLOPPY DISKS??? 
^eft JUST LOOK AT OUR PRICES!!!! 

DS/DD 5.25" DISKS 
AT THE SILLY 
PRICE OF JUST £6.00 PER TEN 
SAVE EVEN MORE MONEY 
BUY TWO PACKS AND SAVE 

ANOTHER £2.00 

TWO PACKS OF TEN 5.25" DISKS 
JUST £10.00 

Complete wdl libels and wnle piotecl tabs 
Prices inciurJo VAT and UK P&P 

No lancy bones to Ihiow away You gel We hignest quality 
dis» ai the lowest of prices 



DISK NIBBLER 

Use boih sides of your disks Save (he cost o' the Nibbier with jus! one bo* 
ol disks even at our prices Only £5,00 or FREE i' you buy 50ormore5 25" 
disks 

SPECIAL OFFER 

50 5.25" disks £25.00 
1 DB5. 100 Cisk box £10.50 
Disk Nibbier f.o.c . 

OUR NORMAL PRICE £46.50 

OFFER PRICE E3S.00 

SAVE""' £11.50 
Prices include VAT and UK postage 



COMMODORE CABLES 

CPC'1 CENTRONICS PRINTER CABLE 

Commodore 084/128 user port 10 Centronics printer cable The cable is 
lilted with a line teed switch for the Epson range ot printers Works with ail 
well known Centronics printers ONLY £15.00 incl. 

CPC/2 SERIAL EXTENSION CABLES 

Extend your commodore printer or disk drive cable by up to 2 metres 

1 Ueire extension cable £5 .oo Fnd 

2 Metre extension cable £7.00 incl 

CPC-3 1280 KEYBOARD EXTENSION 

Do you find yourselt restricted by the short keyboard cable on the C128D 
Solve your problem with our 1 metre extension cable. 

We have mounted our C12B under the desk to save room 
SPECIAL OFFER PRICE ONLY £15.00 incl 



HAT LAST!!!! 
3.5" DISKS AT 
SENSIBLE PRICES 
Double sided, double density 3.5" verbatim 
disks 

ONLY £16.00 'or pack of ten disks 
SAVE EVEN MORE MONEY!!!! 
BUY TWO PACKS FOR ONLY £30.00 

These are noi cheap diski but besi quality disks ai low prices. 

NASHA DS/DD 3.5" DISKS 
BOXED, WITH LABEL 

OUR LOW PRICE £23.00 per box ten. 

SAVE EVEN MORE MONEY!!! 
BUY TWO BOXES FOR ONLY £44.00 

We believe our prices Ate Ihc lowest you will 1*nd 
AM prices include VAT and UK postage 



LOCKABLE DISK BOXES 

DB3/90 

3.5" disk box holds 90 disks first class value at only £12.50 o< onlv£11 50 

when you buy 10 or more 3.5" disks. 

DB5/70 

525 'dl3k box hold 70 disks great value only £9.50 or only £8.50 when vou 
buy 20 or mare 5 25" disks ' 
DB5/1Q0 

5.25" disk box holds 100 disks bargain at only £11.50 oi only £10.50 wht>n 
you but 20 or more 525" disks 



OROERS TO DEPT YC 

H&P COMPUTERS UK, 

9 HORNBEAM WALK, WITHAM, ESSEX CM8 



NEW! 



MEW' 



NEW! 

COMMODORE C64. C128 RS232 INTERFACE 

AT LAST" RS232 Interface ihat will not cost you the earth 
The HSP Computers Commodore PS232 Interface is a full industrial 
standard RS232 interface wuh all handshaking lines that pluos into the 
usei port 

Will fit all modems and printers with a 25 way D conneclor 

Up till now you would have had fo pay Between £35 00 pnd £50.00 for a 

RS232 Interface for fhe C6^C128 

The H&P Computers RS232 15 only £25.00 incl. and we even give you an 
xmodem comms program on disk free of charge. 

ONCE AGAIN WE BRING THE BEST FOR LESS. 
ONLY £25.00 INCL. 



2SZ. Tel: (0376) 511471 
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hour hotltnt lor Acceti, 
MMI»ean( A EurocirO. 



It plays like a dream... 
at seems like a HM1MM 



TRAPPED - in a 1970's arcade machine! Every escape route is blocked by a wall of brightly 
coloured bricks. Powerfully addictive, with 200k of digitized sound, IMPACT has 80 built in 
screens plus 48 that you can design yourself- as hard, as simple, as much fun as you like. 
Hidden on each screen are special tokens -catch them if you can. Use them to buy one of nine 
powerful weapons, or keep them until the end of the screen to score a bonus. ' 







Available now, price £14. 95 for Amiga (512k min.) and Atari ST (requires 512k, mouse and colour monitor or TV). 
Coming soon for CBM64, Spectrum, Amstrad and BBC (specifications vary). 

Audiogenic Software Ltd., Win chest e r Hou se, Canning Road, Wealdstone, 
Harrow, Middlesex HA3 7SJ. BB m ^ST «5? Tel: 01-861 1166 





YOUR 





It plays like a dream... 
ms like a HMIMW. 

1/ Every escape route is blocked by a wall of brightly 
Mth 200k of digitized sound, IMPRC1 has 80 built in 
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MAY I INTERRUF 

NEW PROGRAMMIN 




ACROSS THE BOARD - INTELLIGI 
PROCESSING ▲ BUDGET CALC - 
MANAGER -DISK ACCESS MADE 
▲ SCROLLING YOUR C64 SCREEf 



